AD- A 198  011 


V 


> 


AFWAL-TR-88-3012 


NONLINEAR  ERROR  ANALYSIS  OF  FINITE  DIFFERENCE 
SOLUTIONS  OF  TURBULENT  AND  UNSTEADY  FLOW  FIELDS 


'S' 


D .  Scott  McRae 

North  Carolina  State  University 
Raleigh,  North  Carolina  27695-7910 


Goetz  H.  Klopfer 

Nielsen  Engineering  &  Research,  Inc. 
510  Clyde  Avenue 

Mountain  View,  California  94043-2287 


DTIC 

FT  ■  ECTE 


fF!  ECTE 
AUG  0  2  1988 


1988  May  23 


FfNAL  Report  for  Period  April  1983  -  September  1986 


Approved  for  public  release;  distribution  unlimited 


FLIGHT  DYNAMICS  LABORATORY 

AIR  FORCE  WRIGHT  AERONAUTICAL  LABORATORIES 

AIR  FORCE  SYSTEMS  COMMAND 

WRIGHT-PATTERSON  AIR  FORCE  BASE .  OHIO 


45433-6553 


‘ft* 


v.vl* 

m 

RSf 


m 

m 


m 

m 

w 


m 

i 


m 

l'W»> 

m 


m 
% 


I 


S5ffi 


mgm 


NOTICE 


When  Government,  drawings,  specifications,  or  other  data  are  used  for 
any  purpose  other  than  in  connection  with  a  definitely  Government- related 
procurement,  the  United  States  Government  incurs  no  responsibility  or  any 
obligation  whatsoever.  The  fact  that  the  Government  may  have  formulated  or 
in  any  way  supplied  the  said  drawings,  speci f i cations  or  other  data,  is  not 
to  be  regarded  by  implication,  otherwise  in  any  manner  construed,  as 
licensing  the  holder,  or  any  other  person  or  corporation;  or  as  conveying 
any  rights  or  permission  to  manufacture,  use,  or  sell  any  patented  invention 
that  may  in  any  way  be  related  thereto. 

This  report  has  been  reviewed  by  the  Office  of  Public  Affairs  (ASD/PA) 
and  is  releasable  to  the  National  Technical  Information  Service  (MTIS)  .  At 
WITS,  it  will  be  available  to  the  general  public,  including  foreign  nations. 

This  technical  report  has  been  reviewed  and  is  approved  for 
publication. 


C< jrrrpu tat i onal  Aerodynamics  Group  Aerodynamics  and  Airframe  Branch 

Aerodynamics  and  Airframe  Branch  Aeromechanics  Division 


FUR  THE  COMMANDER 


Flight  Dynamics  Laboratory 


If  your  address  has  changed,  if  you  wish  to  be  removed  frcm  our  mailing 
list,  or  if  the  addressee  is  no  longer  employed  by  your  organization  please 
notify  AFWAL/FIMM ,  Wright-Patterson  AFB,  OH  45433-6553  to  help  us  maintain 
a  current  mailing  list. 

Copies  of  this  report  should  not  be  returned  unless  return  is  required 
by  security  considerations,  contractual  obligations,  or  notice  on  a  specific 
document . 


UNCLASSIFIED 


la  REPORT  SECURITY  CLASSIFICATION 
Unclassified 


2a.  SECURITY  CLASSIFICATION  AUTHORITY 


2b  DECLASSIFICATION /DOWNGRADING  SCHEDULE 


4  PERFORMING  ORGANIZATION  REPORT  NUMBER(S) 

NEAR  TR379 


REPORT  DOCUMENTATION  PAGE 


lb  RESTRICTIVE  MARKINGS 


Form  Approved 
OMB  No.  0704-0188 


3  DISTRIBUTION /AVAILABILITY  OF  REPORT 

Approved  for  Public  Release;  Distribution 
is  Unlimited. 


5.  MONITORING  ORGANIZATION  REPORT  NUMBER(S) 

AFWAL-TR-88-3012 


6a.  NAME  OF  PERFORMING  ORGANIZATION  16b.  OFFICE  SYMBOL  I  7a.  NAME  OF  MONITORING  ORGANIZATION 

North  Carolina  State  j  (If  applicable)  |  Flight  Dynamics  Laboratory  (AFWAL/FIMM) 

University  1 


6c.  ADDRESS  (City,  State,  and  ZIP  Code) 


Raleigh,  North  Carolina  27695-7910 


Air  Force  Wright  Aeronautical  Laboratories 


7b  ADDRESS  (City,  State,  and  ZIP  Code) 

Wright-Patterson  Air  Force  Base,  Ohio 
45433-6553 


8a  NAME  OF  FUNDING /SPONSORING 
ORGANIZATION 


8'c.  ADDRESS  (City,  State,  and  ZIP  Code) 


8b  OFFICE  SYMBOL  9  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 
(If  applicable) 

F33615-83-C-3029 


10  SOURCE  OF  FUNDING  NUMBERS 


PROGRAM  I  PROJECT 

ELEMENT  NO  I  NO 


1 1 .  TITLE  (Include  Security  Classification) 

"Nonlinear  Error  Analysis  of  Finite  Difference 
Flow  Fields" 

Solutions  of  Turbulent  and  Unsteady 

12  PERSONAL  AUTHOR(S) 

D.  Scott  McRae  and  Goetz  H.  Klopfer 

Final  Report 


16  SUPPLEMENTARY  NOTATION 


Sen  86  |  1988  May  23 


COSATI  CODES 


GROUP  SUB-GROUP 


18.  SUBJECT  TERMS  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 


19  ABSTRACT  ( Continue  on  reverse  if  necessary  and  identify  by  block  number) 

/  A  computational  analysis  is  performed  for  the  truncation  errors  incurred  in  the 

numerical  time  integration  of  the  unsteady  and/or  turbulent  Navier-Stokes  equations. 
The  means  of  analysis  is  via  the  modified  equation  approach.  Both  the  MacCormack 
explicit  and  Beam-Warming  implicit  numerical  methods  are  considered.  A  simplified 
analysis  applied  to  Burger's  equation  indicates  that  the  leading  order  term  is  both 
dissipative  and  dispersive.  The  modified  equation  is  derived  for  the  aforementioned 
explicit  and  implicit  methods  as  applied  to  the  full  two-dimensional  Navier-Stokes 
equations.  Development  of  the  required  Fortran  code  for  solution  of  the  modified 
equation  is  expedited  through  the  use  of  the  symbolic  manipulation  language,  MACSYMA. 

V .  ;f'.  :  -Si'pF-r-Sf.to,  c. 


20  DISTRIBUTION /AVAILABILITY  OF  ABSTRACT 
XKJuNCLASSIFIED/UNLlMITED  □  SAME  AS  RPT 


22a  NAME  OF  RESPONSIBLE  INDIVIDUAL 
_ Donald  P.  Rizzc  ' 


DO  Form  1473,  JUN  8* 


21  ABSTRACT  SECURITY  CLASSIFICATION 
□  OTIC  USERS  Unclassif 


22c  OFFICE  SYMBOL 
AFWAL/FIMM 


eu,(,uni  are  obsolete 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 
UNCLASSIFIED 


Table  of  Contents 


Section  Page 

I.  Introduction .  1 

II.  Navier-Stokes  Equations .  3 

III.  MacCormack  Explicit  Scheme .  7 

IV.  Beam-Warming  Implicit  Scheme .  21 

V.  Flux  Jacobian  Matrices .  49 

VI.  Supersonic  Turbulent  Flow  over  a  Compression 

Ramp .  69 

VII.  Results .  71 

VIII.  Discussion .  72 

IX.  Concluding  Remarks .  77 

References .  82 

Appendix  A.  Flux  Jacobians .  A-l 

Appendix  B.  Macros  for  Generating  FORTRAN  Code .  B-l 

Appendix  C.  MACSYMA  Representation  of  the  Navier- 

Stokes  Equations .  C-l 


-  iii 


Accession  For 

NT IS  GRAAI 
DTIC  TAB 


Unannounced 

Justification. 


By - 

Pis t r 1 but  1 on/ 

Availability  Codes 
lAvall  and/or 
Dist  Special 


□  □ 


I.  Introduction 


It  has  been  increasingly  apparent  that  we  must  consider  the 
interaction  between  the  truncation  error  terms  present  in  all 
numerical  methods  and  the  solutions  of  the  governing  equations 
being  integrated.  Of  particular  importance  is  the  effect  of 
truncation  error  on  solutions  involving  turbulence  models.  These 
models,  in  general,  produce  an  effect  on  the  mean  flow  similar  to 
that  produced  through  computing  an  eddy  viscosity  term  which 
increases  and  varies  viscosity.  The  goal  of  this  variation  of 
effective  viscosity  is  to  produce  a  mean  flow  profile  identical 
to  that  which  exists  when  the  boundary  layer  is  turbulent.  The 
variation  in  space  of  the  eddy  viscosity  models  tends  to  produce 
both  dissipation,  which  we  expect,  and  dispersion,  which  we  do 
not  expect. 

It  will  be  the  goal  of  this  work  to  examine  the  interaction 
of  the  truncation  error  terms  with  solutions  of  the  governing 
equations.  We  will  first  examine  the  interaction  between  the 
errors  and  fluid  turbulence  models  and  then,  if  time  and  funding 
permits,  between  the  solutions  and  the  errors  due  to  changes  in 
the  numerical  time  step.  Previous  work,  References  5  and  6,  in 
which  truncations  errors  were  derived  for  selected  methods  and 
compared  with  numerical  solutions  will  be  used  as  the  basis  for 
this  study.  MacCormack's  explicit  method  and  the  Beam-Warming 
implicit  method  are  selected  for  this  study,  as  these  are  the 
two  most  widely  used  methods  in  each  category. 

We  will  show  that  the  leading  error  terms  for  these  methods 
applied  to  a  nonlinear  equation,  although  nominally  either 
dissipative  or  dispersive,  in  reality  contain  both  dissipation 
and  dispersion.  This  effect  is  demonstrated  by  analysis  of  the 
modified  equation  for  Burger's  equation.  For  a  second-order 


method  applied  to  this  equation,  both  dissipation  and  dispersion 
result  from  the  leading  error  term.  The  implications  of  this  fact 
are  great  for  error  analysis.  For  methods  for  which  the 
magnitude  of  the  error  terms  decays  rapidly,  we  can  show  the 
next  term  to  be  a  perturbation  on  the  leading  term.  This  means 
that  it  is  only  necessary  to  compute  the  leading  error  term  to 
obtain  information  concerning  the  major  effects  of  both 
dissipatiion  and  dispersion. 

We  will  proceed  by  first  deriving  the  modified  equation  for 
the  previous  two  methods  applied  to  the  full  2-D  Navier-Stokes 
equations.  The  Jacobians  which  appear  in  the  modified  equations 
will  then  be  developed  and  FORTRAN  code  written  through  use  of 
the  symbolic  manipulation  language  "MACSYMA"  (copyright. 
Symbolics,  Inc.).  The  error  terms  will  then  be  coded  into  two 
representative  computer  codes.  A  typical  problem  will  then  be 
solved  and  the  error  terms  compared  with  the  magnitude  of  the 
turbulent  shear  stress.  Conclusions  will  then  be  drawn  based  on 
the  results. 

The  next  section  covers  the  description  of  the  Navier-Stokes 
equations.  The  following  two  sections  cover  the  description  and 
mechanics  of  deriving  the  modified  equation  for  two  numerical 
schemes  used  to  solve  the  Navier-Stokes  equation.  The  two 
schemes  are  the  MacCormack  explicit  scheme  and  the  Beam-Warming 
implicit  scheme.  The  derivation  of  the  flux  Jacobians  and  the 
generation  of  the  FORTRAN  code  is  given  in  Section  V.  The 
physical  problem  to  be  analyzed,  as  well  as  the  results, 
discussion  and  conclusions  are  given  in  the  final  four  sections. 
The  detailed  flux  Jacobians  and  the  FORTRAN  code  to  generate  them 
are  given  in  the  three  appendices. 


II.  Navier-Stokes  Equations 


The  set  of  governing  equations  to  be  analyzed  is  the  2-D 
unsteady  Navier-Stokes  equations  on  a  fixed  mesh. 


The  transformation  to  be  applied  to  the  governing  equations 
is  given  as: 


r  =  r(t ) 

£  =  £(x,y) 

n  =  n(x,y ) 

The  time  transformation  is  stated  in  the  unusual  form 
r  =  r(t)  so  that  the  effect  of  changes  in  time  step  on  the  error 
structure  may  be  addressed. 

If  Cartesian  velocity  components  are  retained  as  dependent 
variables,  the  two-dimensional,  unsteady  Navier-Stokes  equations 
can  be  transformed  to  the  arbitrary  curvilinear  space  f ,rj,r  in 
strong  conservation  law  form.  The  transformed  equations  can  be 
written  in  nondimensional  form  as 


9rq  +  -  Ev)  +  a^F  -  fv>  =  0 


p  ' 
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PVU  +  ^yP 
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puv  +  T?XP 
J_1tr  pvV  +  rjyp 


(e  +  p)V  -  r}t pj 


u  =  et  +  £x  u  +  £yv 


v  =  +  ^xu  +  *?yv 


where  U  and  V  are  contravariant  velocities  written  without  metric 
normalization . 

The  viscous  flux  terms  are  given  by 


£  T  +  £  T 

sx  xx  sy  xy 

J~^t  £  T  +  £  T 

t  sx  yx  ^y  yy 
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=  *(uv  +  v„)  +  2uu  =  ■=•  p(2u  -  v  ) 
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=  7/i Pr  9  eT  +  ur  +  vr 

x  I  xx  xy 


Py  =  7/*Pr  "9^  +  uryx  +  vryy 
ez  =  ep~l-0.5(n2+  v2 )  =  ^ 


Here  it  is  understood  that  the  Cartesian  derivatives  are  to  be 
expanded  in  4,77  space  via  chain-rule  relations  such  as 

u  =  f  u-+  n  u 
x  sx  £  'x  77 

The  Cartesian  velocity  components  u,  v,  are 

nondimensionalized  with  respect  to  a^  (the  freestream  speed  of 

sound),  density  p  is  referenced  to  p  ;  and  total  energy  e  to 
2 

p„a„.  Pressure  xs  defined  as 
'  00  00 


p  =  (7-1  )  [e-0 . 5yO(U2+V2  )  ] 


and  throughout  7  is  the  ratio  of  specific  heats.  Also,  k  is 
the  coefficient  of  thermal  conductivity,  p  is  the  dynamic 
viscosity,  while  X  from  the  Stokes'  hypothesis  is  -2/3  p.  The 
Reynolds  number  is  Re  and  the  Prandtl  number  is  Pr. 

Finally,  the  metric  terms  are  obtained  from  the  chain- 
rule  expansion  of  x^ ,  y^,  etc.,  and  solved  for  £x,  £y,  etc., 
to  give 


and 


J_1  ‘  Vo  -  Ve 

In  this  report,  we  analyze  two  schemes.  The  first  is  the 
MacCormack  explicit  predictor-corrector  scheme  and  the  second  is 
the  Beam-Warming  implicit  scheme. 


ft 


-6- 


III.  MacCormack's  Scheme 


The  scheme  is  written  in  a  special  rorm  to  facilitate  the 
modified  equation  analysis  as  applied  to  the  equation 


W  +  f  +  g 

r  £  ^n 


=  0 


The  predictor  seep  is 
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where 


<7^  =  Ar/A£ 


cr^  =  Ar/Ar; 

and  ,  p1^  are  the  parameters  of  MacCormack's  scheme. 


The  functional  dependencies  for  the  Navier-Stokes  equations 
are  given  by  the  transformed  equation  as 


rma1 

o 

I 

iSy 


w  +  t  ( f +  g  )  =  0 
r  tv  £  y »? ' 


where  f  is  a  function  of  w,  w^,  and  w^,  and  similarly  for  g. 
Thus  we  have 


f  =  f(w,  w^,  w^) 


g  =  g(w,  w^,  w^) 


For  the  moment  we  do  not  consider  the  specific  form  of 
differencing  the  viscous  terms. 


Defining 


u  =  w.  and  v  =  w 

£  n 


obtains 


f  =  f(W/U/V) 


g  =  g  (w,u,v) 


From  MacCormack's  scheme,  given  in  the  special  form,  we  need 
to  expand  terms  like 


(fn+1  -  fn),  etc.,;  call  fn+1  =  f 


Now  the  Taylor  Series  expansion  in  three  variables  up  tc  second 
order  is 
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A  similar  expression  is  obtained  for 
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The  modified  equation  is  now 
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*  2,3 
At*  t 

r  r  ,,ww  2l  £wu  ,  ,wv  ,  ,  ,  ww  2X  wu  .  wv  , 

- - —  [  {f  c  +  f  cc  £+  f  cc^}^  +  {g  c  +  g  cc^+  g  cc^}^ 


♦  (fuwcec  +  fuuo=  +  £uvcc<=„>f  +  (gUwc£C  -  guuc£+  guvc£c^^ 
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(fvw.  „  ,  fvu_  „  ,  ,vv„2 ,  .  . „vw„  „  ,  vu„  „  ,  vv  2,  , 

v  y  *L  y  *  y  y  *L  y  y 


This  equation  can  be  rewritten  as 


wr  =  -  trc  -  ~  w2r  +  ~  t2  [c]  +  S.O.T.  +  0(A3) 


with  the  operator  [  ]  defined  as 


w 

ij 


,  ,  _  ,  _W  ,  -U  ,  _V  ,  ,  .  W  ,  U  .  V 

[a]  =  {fa+fa^+fa^}^+  {ga+ga^+ga^}^ 
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At 

—  w 
2  2t 


+  ~  t  c+^tc  +  w,  -  --  t  t  [c] 

2  rr  2  t  r  4  3  r  2  r  rr  L  J 


~  t2  [c] 

4  T  1  J  T 


The  modified  equation  becomes 


w  =  -  t  c  +  ^  t  c  +  ^  t  c  +  ^7—  w  -  t  t  [c] 

r  r  2rr  2  r  r  4  3  r  2rrrLJ 


2 

t2  [c]r  +  t2  [c]  +  S.O.T.  +  o(A3 ) 


*  -  t  c  +  ~  t  c+^tc  +^t2  [c]  +  (S.O.T. )_  + 
r  2  TT  2  T  T  2tlj  v  ' 2 


+  S.O.T.  +  0(A  ) 


where 


+  grj  and  (s-0-t-)2  =  “  W3t 


~~  t  t  [c] 
2  r  rr  L  J 


t2  tc, 

4  T  1  JT 
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Solve  for  cT  -  f?T  +  =  tf^}^  +  (g,-), 

’  <fWwT  +  f“V  +  fVV>£  +  (S“WT  +  «“V  * 

-  t»T] 


therefore,  substituting  for  in  the  operator 


j® 

»;*$ 

w? 


—  t  c  =  —  t  { f  -t  c  +  —  t  c  +  —  t  c  +  —  t2  [c]]} 

2  r  T  2  7"  1  L  7*  2  2  t-  2 


I 


=  -  H  fcr  [c]  +  [c] 
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thus,  since  the  second  term  will  be  of  higher  order 


CT  =  -  tr[c] 


At  At 

w  =  -  t  c  +  ^  t  c  +  i4-  t  t  [c] 
T  T  2  TT  4  T  TTl  j 


+  (S.O.T.)2  +  (S.O.T.)  +  0(A) 
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At  At 

w  =  -  t  C  +  —  t  C  +  t  t  [cl 

r  r  2  rr  4  r  rr1  J 


— p-  t  c  +  7  Ar2t  t  [c] 

4  rrr  4  r  rr1 


“•  t  t  [c  ]  +  S.O.T.  +  0(A3) 
2  r  rr1  J  v 


At  At 

w  +  t  ( f +  q  )  =  ^  t  c  -  t  c 

T  T  '  f  yfJ ;  2  TT  4  TTT 


+  trtrrr[c]  +  S.O.T.  +  o(A3) 


where  S.O.T.  are  as  previously  defined.  Since  in  the  S.O.T.  we  have 


krt  „  .  +  krL  t  c  _  l£i_  t  t  ,c,  .  Ai!  t2fcl 

6  W3T  6  C TTT C  6  T  ' TT*-  J  6 


[c]  =  {fwc  +  fuc^  +  fVc^  +  {gwc  +  guc^+  g^}^ 
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we  obtain 


[c]T  =  -tT  [c]  +  [cr] 

where  the  operator  [a]  is  defined  as 

—  —  f  £ww  2  ,  ,wu  ,  ,wv 

[a]  =  |  f  a  +  f  aa^  +  f  aa^ 


+  fUW  a^a  +  fuu  a^  +  fuv  a^a 

+  fvw  a  a  +  fvu  a  a*  +  fvv  a 
V  Vi 

/  ww  2  .  wu  ,  wv 

+  (  g  a  +  g  aae  +  g  a 


uw 

uu 

2  .  uv 
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a  a 
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+  g 

vw 

vu 

,  VV 
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a^a 
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avai  g 

now 


[Cr]  =  -tr  [ [c ] ] 

thus 


[c]r  =  -  tT  {[CJ  +  [[CJ]  } 
and  the  modified  equation  becomes 
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Ar  At 

r  t  c  -  — —  t  c 
2  TT  12  TTT 


^  <4  '5  t  =  ]  -  [[cm  -  -f£  tTf3?  -  tTg35) 


2  A 

+  fcr  <1-2/3^)  taei  +  -4  fcr  (!  -  2/^)[b  1 


where 


c 

-  At  -J-  {AC  (1-2^)  (fwc  +  fuc^+  f^) 


ac  = 


hrj  cVg2r, 


+  A rj  (1-2/J^)  (gwc  +  gUc^+  gVc^)2  } 


The  Jacobian  matrices  needed  for  the  modified  equation  given  on 
the  previous  page  are  derived  in  Section  V. 
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IV.  Beam-Warming  Implicit  Scheme 


If  the  Cartesian  velocity  components  are  retained  as 
dependent  variables,  the  Navier-Stokes  equations  in  two 
dimensions  can  be  written  in  a  general  curvilinear  coordinate 
system  £  and  rj ,  in  conservation  law  form  (see  Ref.  1)  as: 


w+t  ( E  -  E  .  -  E  _ ) „  +  t  ( F  -  F  ,  -  F  _ )  =0, 

r  rv  vl  v2'f  r  '  vl  v2 '  rj  ' 


where 


- 1  T 

w  =  J  [p,  p u,  pv,  e ]  , 


(E  -  Ev^  -  Ev2 )  and  (F  -  Fv^  -  Fv2 )  are  the  flux  vectors,  t  =  t(r) 
is  a  time  transformation  and  the  subscript  notation  has  been  used 
for  the  derivatives.  As  customary,  p  is  the  density,  u  and  v  are 
the  Cartesian  velocity  components  in  the  Cartesian  directions  x 
and  y  and  e  is  the  total  energy.  In  addition  J  is  given  by: 


J '  (xcy-> 


x  y  ^ ) 
rV 


where 


X  =  X($,T/) 


y  =  y($f»?) 


In  the  above  form  p,  u,  v  and  e  are  nondimensionalized 


respectively  by  pw,  aw,  aw  and  pw  aw. 


'MyWW 


We  also  have: 


E  = 


J 


-1 


P  u 

pu  U  +  4xp 

PV  U  +  4yP 
(e  +  p)  u 


pv 

PuV  +  »?xp 
pvV  +  J7yp 
(e  +  p)V 


I 


Ev1  +  Ev2  =  J 


-1 


FV1  +  Fv2  =  J 


-1 


+  £  r 

x  xx  *y  xy 


^xT: 

■xr; 

+  ^y^y 


£  r  +  £  r 
sx  yx  >y  yy 


Vxx  +  Vxy 

^xTyx  +  ^yTyy 
+  ^y^y 


where 


U  =  ^xU  +  ^y  v 


',$4 
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£x  =  Jyf7'  ^x  =  _Jyf 


«y  -  Jx,'  fy  -  Jxe- 


f*  ■  %f«  -  *{  S 


£y  -  -Jx^f J  +  Jx{£y 


for  any  function  f. 

In  the  above,  p  is  the  pressure,  ft  is  the  coefficient  of 
viscosity,  7  is  the  ratio  of  specific  heats,  Pr  is  the  Prandtl 
number  and  e^  is  the  internal  energy.  Note  also  that  the  Stokes' 
hypothesis  of  zero  bulk  viscosity  has  been  used. 

While  E  =  E(w)  and  F  =  F(w),  the  viscous  flux  vectors,  Evl  + 


Ev2  and  F  j  +  Fv2  are  split  such  that 


Evl  ■  Evl<“'  V 


Ev2  "  Ev2(w'  V 
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In  the  Beam  and  Warming  Scheme  (see  Ref.  2)  the  dependent 
variable  w  is  advanced  in  time  using 


An  An  At 

A  w  1+0O  A  wr  l+0„ 


0. 


Wn  +  — -~ 

r  1+0. 


.  n-1 
A  w 


where  Anf  =  fn+1  _  fn  for  a  function  of  time  r.  The  parameters 
91  and  6 2  can  be  chosen  in  various  ways  to  reduce  the  scheme  to 
many  standard  difference  formulas.  In  general  the  scheme  is 


first-order  accurate  in  time,  and  if 
second-order  accurate. 


e. 


-  e. 


-  1/2  =  0  it  is 


U  inserting  the  Navier-Stokes  equations  in  the  scheme  and 
not  in 

of  time  f  and  g  we  get 


.hat  An(fg)  =  fnAng  +  gnAnf  +  0(Ar2)  for  any  two  functions 


^  (tl  <-4nE  +  4nE„,  + 


1+0. 


>1 


v2 '  £• 


Also 


i  ‘,m 

*  «** 

Alt'* 

•SMs 


•»%«* 

•Mi 

•i'W 

1 :  w! 


In  order  to  maintain  the  block  tridiagonal  form  of  the  final 
equations,  the  cross-derivative  terms  are  evaluated  explicitly, 
without  loss  of  accuracy,  by  noting  that 


.va 


c 


4nEv2  -  An‘1Ev2  ♦  0(Ar2) 


4"Fvl  *  4n‘lFvl  +  °<ir2> 


Upon  substitution 


A  _  i 

°lflTXr  ,,  ,n.n  .  ^n»n  «n.n  .  ,„n,n  ,  .  »n-l„ 

A  w  =  1+g —  {[-AAw+PAw-  R^A  w  +  (R  A  w)^+  A  E^2 } 


$ 

& 


r  niii  n  .  n  j  n  _ n  ^  n  .  _n>  n  .  «  n  1  _  . 

+  [ -B  Aw+QAw-SAw+(SAw)  +  A  F  ,  1  } 

rj  r)  vl  Jr/  ‘ 


m 

a 

a 

•  •Ml 
•X'il 


+  t<-E  +  Evl+  Ev2>«  +  <-F  +  FV1  +  FV2>,1" 


1+5:  [(“E  +  Evl  +  $2^  +  <-F  +  Fvl  +  Fv2>^ 
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factoring  and  using  the  central  difference  operators  for  the 
space  derivatives 


+  “AnV5?(-E  +  Evl  +  E„2>n+  5,<-F  +  FV1  +  Fv2>n) 

+  K  t6«>-E  +  EV1  +  Ev2>n  +  «,<-F  +  Fvl  +  Fv2>n)  +  D 


+  «tj  [Yn'lEv2  +  5,  4"‘1fvi) 


+  7  An  1w 


where 


D?  ■  -  eu  J'V«J 


D  =  -  e._  j  A  J 
*7  12  n  V 


D  =  -  ee  J  1 1  A^ ) 2  +  <V^7)2]  JWn 

and  A  and  V  are  the  usual  forward  and  backwards  difference 
operators . 
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Since  it  is  often  the  case  that  the  thin-layer  approximation 
is  used  in  Navier-Stokes  calculations  and  since  solid  boundaries 
may  be  present  in  a  problem  along  either  the  £  or  ij  coordinates, 
we  introduce  the  parameter  a  and  b  in  order  to  tag  differently 
the  viscous  terms  involving  the  £  and  rj-  derivatives  (a  and  b 
take  the  values  0  or  1  only) : 


{I  +  at [5^(A  -  aP  +  a  R^)n  -  a5^Rn)  +  } 1 


{I  +  atj  [5V( B  -  bQ  +  b  ) n  -  bS^S11 ]  +  }An  w  = 


aAntT[8^(-E  +  aEvl  +  abEv2)n  +  6^-F  +  abFvl+  bFv2)n] 
pt"[^(-  E  +  aEvl+  abEv2)n+  5^(-F  +  abFvl  +  bFv2)n]+  D 


+  at>h  ^  (An"lEv2)  rj+  5r,  ^  Fvl>l 


.  —  . n-1 
+  7  A  w 


If  we  now  let 


L  =  A  -  aP  +  aR. 


M  =  B  -  bQ  +  bS 


and 


X  =  -E  +  aEvl+  abEv2 


Y  =  -F  +  abFvl  +  bFv2 


we  obtain  finally 


{I  +  at”[5cLn-  aSfcRn]  +  Dc}  •  {I  +  at"[5Mn-  b5  sn]  +  D  }A  & 

s  T  V  VV  V 


aAnt  [6tfXn+  6  Yn]  + 
rl  i  rj  1 

+  a  t£ab  [5^An_1Ev2 


pt”  [6^Xn  +  6^ Yn]  +  D 

+  VB’lrvl)  +  7  4n‘lw 


In  general  the  first  step  in  deriving  the  modified 
differential  equation  is  to  expand  each  term  in  the  difference 
scheme  in  a  Taylor  Series  about  the  point  ( i,V>T )•  collect  terms 


of  the  same  order  and  then  retain  the  equation  to  the  order 
desired.  In  the  present  case  this  would  necessitate  Taylor 
series  expansions  in  three  independent  variables,  to  some 
reasonably  high  order,  before  it  can  become  possible  to  identify 
the  terms  that  are  needed.  Here,  we  will  proceed  differently  by 
deciding  at  the  outset  the  order  to  which  we  want  the  modified 
equation  to  be  accurate  and  then  write  down  only  the  terms  that 
are  needed,  using  single  variable  Taylor  series  expansions,  to 
reach  that  order  of  accuracy. 

For  example,  we  wish  the  modified  equation  to  be  accurate  to 
third  order.  Since  after  all  terms  have  been  expanded,  it  is 
necessary  to  divide  everywhere  by  At  to  recover  the  Navier-Stokes 
terms  on  the  left-hand  side  of  the  equation,  every  term  in  the 
above  difference  formula  should  be  expanded  to  fourth  order. 
Before  proceeding  to  do  that,  we  first  note  that  for  any  function 
f(x)  of  the  single  variable  x  we  have  the  following: 

Sx£  -  £x  +  £  4*2f3x  +  °<4*4> 


Sxx£  =  £xx  +  12  4*2f4x+  0(4x4) 


vx4x£  '  4x2  f XX  +  °<4x4> 


( V  A„) 2f  =  Ax*f +  0(Ax6) 


VJV 

v<» 

$ 

m 

®5| 
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as 

;w 


j?3 
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Remembering  that  a  and  A  w  are  both  of  the  order  of  At  we  expand 
as  follows: 


4nw  -  wT  At  +  §  wTT  At2  +  A  wJt  At3  +  yj  »4r  Ar4 


Anw  =  (L  Anw)  ^  A£2  (L  Anw). 


Sce  R  Anw  =  (R  Anw) ^  +  yi  AC2(R  Anw)4^ 


D  Dnw  =  -eix  J  1  A£2 ( JAnw) 


Similarly 


Anw  =  (M  Anw)^  +  |  Ar?2  (M  Anw)3r? 


5  SAU 
VV  w 


D  Anw 


<S"4  +  15  M2(SnAnw)4;; 


-1  *_2,,.n 


=  -e.„  J  A»7  (JA  w) 


i 


I 

♦»r 


r 


?? 

vi 

$ 

**:i 


♦,»3 

iM 


5„L  5  M  Anw  =  (M  Anw)  +  (M  Anw),. 

€  V  €  V  tv 


5s  L  8  SAnw  =  L*  ( SAnw)  +  L  (S  Anw)^ 

4  vv  4  ’nn  v 


L  D^Anw  -  — € i2  [L  J  1(J4I1W)  ]{A172 


R  M  Anw  =  R^(M  Anw)^  +  2R?  (M  inw)^  +  R  <M  Anw) ^ 


*«  R  5vis  '  R«(S  in“'w  +  2  Vs  ^ivv  +  R  <s 


5«R  Vn“  '  -ei2  <R  C  J_1(  J*nw)^]  J  5?A,2 


Vim  4""  "  _£ii  J  1  4?2(j  <m  4n"V« 


YW5  4"w  *  'eii  J'1  452  tJ<s  ‘""Ve? 


r  lilIWJil.fi 


«S 


D^D  Aw  =  0(Af  A  rT  Ar) 


Having  done  that.  Aw  is  now  expanded  only  to  the  order 
needed  to  bring  all  terms  to  the  4th  order.  By  repeating  the 
above  procedure  for  the  terms  on  the  right-hand  side  of  the 
difference  formula,  dividing  everywhere  by  Ar,  denoting  a/hr  by  a 
and  p/hr  by  /?  and  noting  that  1-7  =  ]}  we  get 


PI WT  -  tr(X{  +  Y^)]  = 


-Ar  ^  wrr  +  atr(Lwr)^  -  a  atr(Rwr)^  +  at^Mw^ 


-abt  (Sw  )  -  a  t  (Xc  +  Y  )  -  aabt  [(E  n)  .  +  (F  ,)  1  } 

r  T'rjrj  rr'  £  r\'  rl '  v2 'rf  s  vl'rrj1  1 


-ir2(|  w3t  +  f  tT(LWTT)?  -  as  tT(RwTT){f  +  f  tT(MwTr)j) 


tT<SWTT)„  *  “2tT  LJ<MWT>,  +  52tT  L  <MWr>?, 


-a2bt^  Ltf ( Sw  )  -  a2bt2L( Sw  ) 
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f 
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V7 

5* 


-a2at2R(Mv#  ) ,.,. 
r  r'^t? 


r2_.  .  2 


+  “‘'abtrR^(Swr)r?»7  +  252abt2Rc(Swr) 


+a2abt2R(Sw  )_ 

r  r'^r; 


+  V<Ev2>tt<; 


+  J'1  <£il4«2<J"r>«  +  £i24’'2<JV>„t 


+ !  v4«2  x3(  +  y3„> 


<Fvl>T-n,)  -  ft3T<x{+Y,»t 


-At2  {i±2  w  +  a  t 

l  O  A  W  >1  ^  U 


4r  +  6  V^r’f  -  6  a  tr<Rw3r>f£  +  I  VMw3t>, 
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a2  2 


a2  j.2. 


“  b  t  ( Sw_  )  tiTi  +  ^  t  L*(Mw  )  +  ^  t  L  (Mw  )* 

o  rv  3t'  1 1  2  r  rr'r)  2  r  v  rr'^ 


-2  -2 

f  bt  Lf(Sw  )  -  f  bt  L( Sw  ). 

2  r  £v  Tr'r)r)  2  r  v  tt' £rjr) 


_2 

f  at2R.tf(Mw  )  -  a2at2R,.(Mw  )„ 

2  t  tt'^  r  fv  rr'^rj 


-2  -2 

-fa  t2R  +  f  ab  t2  R,f(Sw  ) 

2  r  '  2  r  rr'rjr] 


_2 

+  a2ab  t2  Rtf(Sw  ) +  f  ab  t2R  (Sw 

r  tt1  £rj  2  r  v  tt  iiW 


-2 

f  «b  tr((Ev2)3rC  +  (Fvl)3rT7]  -  f  t4r(xr  y^)} 


*  f  Art?2[trrX35  +  abtT(Ev2)3CT  -  tr(Lwr)3? 
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The  left-hand  side  of  the  above  equation  is,  except  for  the 
factor  /?,  the  Navier-Stokes  term,  modified  by  the  coefficients  a 
and  b  introduced  earlier.  The  right-hand  side  is  the  truncation 
error,  up  to  third  order.  To  make  the  equation  amenable  to 
analysis,  all  terms  on  the  right-hand  side  must  first  be  expanded 
in  terms  of  the  derivatives  of  w  and  then  all  terms  containing  w 
must  be  eliminated  by  repeated  application  of  the  modified 
equation  itself  (see  Ref.  3).  Before  attempting  to  do  that,  we 
write  the  equation  to  second  order  in  a  somewhat  more  expanded 
form: 
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Now,  recall  that  the  viscous  flux  vectors  contain  the 
coefficient  of  viscosity  p  and  the  Prandtl  number  Pr.  If  a 
turbulence  model  such  as  the  Baldwin-Lomax  model  (Ref.  4)  is  to 
be  used  in  the  computations,  p  would  be  replaced  by  p  +  pt  and  Pr 
by  Pr  +  Prt,  where  pt  is  an  eddy  viscosity  coefficient  and  Prfc  is 
a  constant.  pt  can  be  assumed  in  general  to  be  a  function  of  w. 
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and  w_ 


On  the  other  hand,  the  molecular  viscosity 


£'  "  V 

coefficient  p  is  a  function  of  temperature  and,  therefore,  is  a 


function  of  w.  In  the  Beam  and  Warming  scheme  p  and  p t  are 
assumed  to  be  locally  independent  of  w  and  its  derivatives  and 
are  functions  of  f  and  rj  only.  This  amounts  to  evaluating  p  + 
pt,  on  the  implicit  side  of  the  scheme,  at  the  previous  time  step 
n.  However,  for  the  purpose  of  deriving  the  modified  equation 
the  functional  dependence  of  p  +  pt  on  w,  w^  and  w^  must  be  used. 
With  this  in  mind  and  after  letting 
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the  derivatives 

i  of  w  out  of  the  various 

derivative  terms  on  the  right-hand  side  of  the  equation,  these 
terms  must  be  expressed  in  terms  of  the  Jacobians  of  the  original 
flux  vectors  with  respect  to  w,  w^,  and  w^  and  their  derivatives 
with  respect  to  fi ,  as  well  as  in  terms  of  the  Jacobians  of  p  with 
repect  to  w,  w^,  and  w^.  in  addition,  the  elimination  of  the  r- 
derivatives  from  the  equation  will  require  the  evaluation  of  a 


V.y,  s>y< V.  «*• y.v.|»V ■*»?.:«*< 


number  of  other  derivative-terms  not  appearing  in  the  equation  m 
its  present  form.  Terms  such  as  S*-  ,  X,.*,.  ,  Y,.,.  ,  , 

and  the  corresponding  lower  order  derivatives  are  required,  for 
instance.  A  simple  calculation  shows  that  terms  such  as 
is  the  sum  of  at  least  2500  terms.  It  is  not  difficult  to  see, 
therefore,  that  carrying  out  all  the  expansions  needed  by  hand 
and  doing  the  necessary  algebra  to  obtain  the  modified  equation 
in  its  final  form  is  impractical  to  say  the  least.  A  computer 
must  be  used.  In  fact,  the  computer  could  be  provided  with 
relatively  compact  formulae  to  carry  out  all  the  expansions 
needed.  In  order  to  see  how  this  could  be  done,  assume  that  f  is 
a  function  f(wQ,  w1,w2,w3;  where  WQ/  w1 ,  w2,  and  w3  are 


functions  of  £  ,  f2  and  let  f^ 


jkim  denote  aei  d{.  ack  a^  afm  ' 


where  i,j,k,l,  and  m  take  the  values  1  and  2  only,  and  wpqrst 
denote  the  derivatives  of  w  with  respect  to  f  ,  £q,  £  ,  £  and 
£t,  where  p,  q,  r,  s  and  t  take  the  values  0,  1,  2  and  3.  We  set 
wq  =  w,  Wj  S  w^,  w2  =  w^,  w3  =  fi,  f 3  =  £  and  f2  =  rj ,  and  take  the 
convention  that  a  deriative  with  respect  to  means  no 

derivative  at  all  and  a  derivative  with  respect  to  £3  mean  that 
w  is  really  /*;  example:  wol221means  w>  .  ,  ,  ,  and  w322i2  raeans 

^2^2^1^2*  Furthermore,  we  reserve  the  notation  f1  for  the 
derivative  of  f  with  respect  to  the  variable  appearing 

explicitly  in  the  expression  of  f.  With  this  we  can  write: 
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fijklra  can  e,3ually  be  written  down  using  f^^. 

Note  that  the  above  formulae  apply  to  the  quantities  X  and  Y 
which  are  functions  of  w,  w^,  w^,  /*,  £  and  tj  .  For  quantities 

such  as  L,  R,  Fvl,  which  are  functions  of  w,  w^,  fi,  f  and  rj  only, 
and  M,  S,  Ev2>  which  are  functions  of  w,  w^,  fi,  f  and  rj ,  the 
above  formulae  must  still  be  used  in  their  general  form  in  order 
to  maintain  their  consistency.  However,  an  instruction  can  be 
added  to  delete  terms  containing  Jacobians  with  respect  to  w^  in 
the  first  case  and  w^  in  the  second.  When  f  s  /i  it  is  sufficient 
to  stop  the  summations  over  p,q,r,s  and  t  at  2,  i.e.  sum  from  0 
to  2.  If  a  r- derivative  is  invovled,  that  is  if  one  index  in 
f...  corresponds  to  a  time  derivative,  the  formulae  still  apply 
except  that  all  terms  with  f1-'  containing  that  index  should  be 
cancelled.  With  this  all  necessary  expansions  can  be  handled 
using  the  same  formulae  above. 


Note  that  despite  the  fact  that  the  summation  signs 


r£0  ^  appear  to  cover  all  terms  on  the  right-hand  side,  not  all 

of  these  terms  contain  all  four  indices  and  therefore  those  that 
do  not  can  be  taken  out  of  the  loop. 

Note  also  that  since  every  time  a  derivative  is  taken  terms 
that  are  products  of  a  number  of  terms  become  products  of  an  even 
larger  number  of  terms,  the  previous  estimate  of  the  number  of 
terms  involved  in  one  term  on  the  right-hand  side  of  the  modified 
equation  is  an  underestimate.  The  correct  number  of  terms 
involved  can  be  found  by  examining,  for  instance,  the  expression 

o£  £iju- 


Finally,  consider  a  term  such  as: 


fwwww  wslwrkwqjwpi 
p  q  r  s 


for  one  combination  of  p,q,r , s, i, j , k,  and  1.  Since  f  is  a  vector 
(it  may  be  a  4x4  Jacobian)  and  w  is  a  vector,  this  term  alone  is 
a  sum  of  4  or  1024  terms.  If  f  is  already  a  4x4  Jacobian  the 
count  is  4096. 

With  such  estimates  it  becomes  quickly  clear  that  even  on  a 
computer  some  difficulties  may  arise,  particularly  in  terms  of 
storage  requirements  and  the  logistics  of  carrying  out  algebraic 
operations  on  huge  numbers  of  terms .  Some  additional  thought 
must  be  given  to  ways  of  circumventing  these  types  of 
difficulties . 


Perhaps  it  will  become  necessary  to  consider  the  way  the 
modified  equation  is  to  be  analyzed  simultaneously  with  ways  of 
obtaining  it. 


V.  Flux  Jacobian  Matrices 


The  flux  terms  are 
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Note  that  we  have  added  two  extra  equations  to  the  N-S,  equation,  i.e 


x  =  0  and  y  =0 

T  J  T 


so  that  we  have  a  consistent  way  of  including  the  spatial 
derivatives  of  the  metrics  in  the  computation  of  the  flux 
Jacobians .  Since  we  are  considering  stationary  meshes  only,  this 
addition  does  not  increase  the  complexity  of  the  system. 
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We  need  to  compute  the  following  Jacobian  terms 
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Each  of  these  will  be  a  4x4  matrix 
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Each  of  these  will  be  a  4x4x4  matrix 
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Each  of  these  will  be  a  4x4x4  matrix 


Also  the  same  for  the  y-flux  vector,  g. 

This  is  going  to  take  forever  to  do  by  hand,  so  we  will  use 
MACSYMA. 


Generation  of  the  Flux  Vector  Jacobian  Code 

To  evaluate  the  error  terms  derived  in  the  preceding 
sections,  code  must  be  generated  to  compute  the  magnitude  of 
these  terms  at  each  discrete  point  in  the  flowfields.  This 
evaluation  may  be  performed  for  as  many  time  steps  as  desired  in 
order  both  spatial  and  temporal  variation  of  the  truncation 
errors . 

The  error  terms  themselves  are  not  exceedingly  difficult  to 
code,  once  derived,  although  they  require  many  vector  and  matrix 
operations.  The  major  difficulty  is  the  generation  of  code  to 
compute  the  elements  of  the  Jacobian  matrices  and  tensors  which 
appear  throughout  the  truncation  error  terms.  By  example,  the 
second  Jacobians  of  the  flux  vectors  contain  64  elements  and  the 
third  Jacobians  contain  256  elements.  There  are  potentially  9 


second  Jacobians  and  27  third  Jacobians.  Of  each  element 
required  only  one  line  of  code,  these  two  sets  would  require  7488 
lines.  The  fourth  Jacobians  would  require  an  additional  82,944 
lines  of  code  on  the  same  basis.  Since  each  element  may  require 
many  lines  of  code,  in  particular  for  the  case  of  flow  dependent 
eddy  viscosity,  the  probability  of  generating  this  code  by  hand 
without  error  is  not  large. 

The  symbolic  manipulation  lanquage  MACSYMA  (c  Symbolics, 
Inc.)  version  309  was  therefore  used  to  produce  the  computer  code 
necessary  to  evaluate  the  Jacobians.  This  was  not  done  without 
difficulty,  however.  The  first  attempts  to  produce  code  using 
MACSYMA  for  the  elements  of  the  Jacobians  met  the  same  fate  as 
the  attempts  to  derive  the  modified  equations  using  MACSYMA  i.e., 
the  size  of  the  many  elements  grew  until  the  storage  capacity  of 
version  309  was  exceeded.  As  a  counter  to  this  problem, 
factoring  routines  were  developed  to  attempt  to  reduce  the  size 
of  each  element  after  it  was  generated.  These  routines  were  only 
partially  successful  and  required  as  much  as  2  days  of 
interactive  time  to  reduce  each  element.  Even  then,  the  code  for 
some  of  the  elements  exceeded  the  allowable  limit  for  FORTRAN 
continuation  statements. 

The  final  resolution  of  this  difficulty  came  from  a 
suggestion  by  Wigton  (Ref.  10)  for  a  means  of  taking  complex 
derivatives  using  MACSYMA.  His  basic  idea  was  extended, 
streamlined  and  automated  so  that  FORTRAN  code  for  the  entire  set 
of  first,  second  and  third  Jacobians  could  be  generated  in  3  to  5 
hours  of  interactive  time  (depending  on  machine  load) .  The 
routines  for  performing  this  task  will  be  explained  below  and 
included  in  Appendix  A  in  full.  The  FORTRAN  code  generated  using 
these  routines  is  included  in  Appendix  B. 


The  crucial  idea  by  Wigton  is  the  use  of  the  "GRADEF" 
function  in  MACSYMA  to  assign  names  to  derivatives  of  functions. 
The  important  point  (that  is  not  explained  completely  in  the 
MACSYMA  manual)  is  that  if  the  original  value  of  the  function  is 
removed  after  the  derivative  is  taken  and  the  name  is  assigned 
using  GRADEF,  then  MACSYMA  will  subsequently  substitute 
automatically  the  assigned  name  for  the  appropriate  derivative  of 
the  function.  The  reduction  in  size  of  subsequent  expressions 
containing  this  derivative  (if  lengthy)  is  obvious.  This  idea  is 
applied  using  the  MACSYMA  macro  "BUILDQ" ,  also  as  suggested  by 
Wigton . 

Before  explaining  the  routines,  the  definitions  of  the 
variables  used  to  generate  the  flux  Jacobians  will  be  given  for 
one  of  the  flux  vectors  in  conservative  form: 
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r 

m 

n 
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cav  =  capv  =  J  Vy  +  f  Vx 


duz  =  duzeta  =  (  —  ) 

'  r  77 


due  =  dueta  =  (  —  ) 

r  rj 


dez  =  dezeta  =  (  e.  ) 
v  1  '  rj 


duz  =  duzeta  =  (  —  ) 
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dre  =  dueta  =  (  —  \ 
v  r 


dee  =  deeta  =  ( e . ) 

'  1 ' 1 


rxx  =  mu  [  -  (dvz)  zty  -  (dve)  ety  +  z  ((duz)  ztx  +  (due)  etx)  ] 
rxy  =  mu  [(duz)  zty  +  (due)  ety  +  (dvz)  zty  +  (due)  etx 

bx  =  (gam)  [(dez)  ztx  +  (dee)  etx]  +  m/r  rxx  +  -p  -rxy 

m 

then  F  =  m2/r  +  P  '  ™ 
mn/r  -  rxy 

(e  +  p)  m/r  -  bx 
Once  the  derivatives  are  computed  using  the  above  variables, 
then  a  routine  is  used  to  substitute  the  variables  used  in  the 
computer  codes  into  which  the  Jacobians  are  to  be  inserted. 

Four  basic  types  of  macros  were  written  for  this  task.  Each 
was  written  to  be  called  on  a  given  variable  or  vector  to  perform 
part  of  the  necessary  operations.  The  first  step  is  to 
differentiate  and  name  the  derivatives  of  such  functions  as  duz, 

cau,  cav,  etc.  as  defined  above.  These  macros  are  proc _ ,  an 

example  of  which  is  given  below: 

proc2 ( var ) : : = 

buildq( [var] , 

(for  ii:0  thru  3  do(  te:  dif f ( var,q[ ii ] ) , 
if  te  /  0  then  (for  j j : 0  htru  3  do 
( tee : dif f ( te, q[ j  j ] ) , 

if  tee  t  0  then  (  gensub(tee), 
output gen ( var , nvar , ii , j  j ) , 

apply ( ' gradef . [ concat ( 'var, *d,ii),q[jj] ,concat 
( 'var, 'dd,ii,jj  )]))))))  )$ 

The  proc2  macro  shown  here  is  used  to  create  the  derivatives 
and  the  names  that  will  be  substituted  for  the  derivatives  in 
subsequent  appearances  of  the  derivative  in  the  second  Jacobians. 
If  called  on  duz,  the  definition  of  duz  is  substituted 
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sequentially  for  all  appearances  of  the  dummy  variable  VAR.  The 
macro  differentiates  duz  wrt  the  first  element  of  q  and  loads  the 
result  into  tee.  If  this  is  nonzero,  then  it  differentiates  wrt 
the  first  element  of  q  again  and  if  still  nonzero  substitutes  the 
actual  variables  to  be  used  in  the  FORTRAN  code  using  the  macro 
GENSUB.  The  FORTRAN  code  is  then  generated  and  displayed  as  text 
with  an  output _  MACRO. 


outputgen ( arn , nd , ii , j  j ) : :  = 

buildq( [arn, nd, ii, j j ] , FORTRAN (concat ( 'arn, ' dd, ii, j j )=nd) ) $ 


Finally,  the  APPLY,  GRADIF ,  and  CONCAT  functions  are  used  to 
designate  the  derivative  of  a  wrt  b  the  name  c. 


An  example  of  the  FORTRAN  code  produced  by  the  proc2  routine 


duzdd00=2*roudzt ( kv, jv) /rho(kv, jv, 1 ) **3-6*rhodzt (kv, jv) *rhou (kv, 1 
jv, 1 ) /rho(kv, jv, 1 ) **4 


In  reality,  these  routines  can  be  called  sequentially  on  a  single 
function  as  follows: 


procall (varr) : :=buildq( [varr], (unmod(varr) ,proc(varr) ,procu(varr) 
,procv(varr) ,proc2 ( varr) ,proc2 (varr) ,proc2pu(varr) ,proc2pv(v 
arr) , proc2up( varr ) , proc2vp( varr ) ,proc2uu(varr) ,proc2uv(varr ) 
,proc2vu( varr) ,proc2vv( varr ) , remvalue( varr ) ) )$ 


Once  all  of  the  nonzero  derivatives  of  the  components  of  the 
flux  vectors  have  been  generated  and  named,  the  Jacobians 
themselves  can  be  generated  using  the  ARRG _  macros: 


arrgpp( var ) : : = 

buildq( [ var ] , 

(for  ii:0  thru  3  do( 

for  jj:0  thru  3  do  { te :dif f ( var [ ii ] ,q[ j j ] ) , 

for  kk:0  thru  3  do  ( tee :dif f ( te, q[ kk] ) , gensub( tee) , 
fortran (concat( 'var, 'pp, " ( "  ,ii, “ , " , j j , " , " , kk, " ) " )= 
nvar) )))))$ 

These  macros  are  somewhat  less  complex,  as  all  of  the  derivatives 
have  been  named,  so  it  remains  only  to  differentiate  the  flux 
vector  components  and  output  the  FORTRAN  code.  In  this  instance, 
the  CONCAT  function  is  used  to  generate  the  array  name  for 
Jacobian  element.  An  example  of  this  output  is: 

fpP( 3,1,0)  = 

(cau*pddl0  rcaudO*pdl+caudl*pdO+cauddlO* (p+rhoe(kv 
, jv,l,l) ) -byddlO*zty(kv, jv,l)-  bxddlO*ztx(kv, jv, 1 ) )/rd 
j  ( kv , j  v ) 

fpp(3,l,l)  =  (cau*pddll+2*caudl*pdl--byddll*zty  (kv,  jv,  1 ) 
-bxddll*ztxl (kv, jv, 1 ) ) /rdj (kv, jv) 

The  naming  conventions  used  are  as  follows: 

For  derivatives  of  functions: 

d 

function  name  +  u 

r 

The  flux  Jacobians  use  the  same  conventions  except  that  p  is 
substituted  for  d. 


dif f . wrt 

0 

q  1 
ql  +  2 

qm 

element  of 
q,  etc. 


For  instance, 


VI.  Supersonic  Turbulent  Flow  over  a  Compression  Ramp 


The  physical  problem  to  be  analyzed  in  this  study  is  a 
supersonic  turbulent  flow  over  a  compression  ramp.  This  problem 
was  investigated  by  Shang  and  Hankey  (Ref.  8)  using  the 
MacCormack  explicit  scheme  (Ref.  7)  to  solve  the  compressible 
Navier  Stokes  equations.  The  Cebeci-Smith  eddy  viscosity  model 
modified  by  Shang  and  Hankey  is  used  to  simulate  the  turbulence. 

The  numerical  code  used  for  the  results  presented  in  this 
section  was  provided  by  Shang  and  is  described  in  Reference  8.  A 
computational  mesh  of  62x30  points  with  some  clustering  at  the 
corner  of  the  ramp  and  the  same  type  of  stretching  in  the  normal 
direction  as  reported  in  Reference  8  is  used.  The  freestream 
Mach  number  is  2.96  and  the  Reynolds  number  based  upon  the 

.  7 

leading  plate  length  is  10  .  The  grid  is  shown  in  Figure  1.  The 
Mach  contours  and  surface  pressures  in  the  neighborhood  of  the 
compression  corner  are  shown  in  Figures  2  and  3,  respectively. 

Although  the  grid  is  very  coarse  by  present  day  standards, 
it  will  provide  a  starting  point  for  our  investigation  of  the 
influence  of  truncation  error  on  the  eddy  viscosity.  In 
subsequent  calculation  we  expect  to  refine  the  mesh  to  find  out, 
among  other  things,  to  what  level  the  grid  must  be  refined  so 
that  the  truncation  errors  do  not  influence  the  eddy  viscosity 
levels.  Or,  in  other  words,  what  level  of  grid  refinement  is 
necessary  before  we  can  be  assured  that  the  eddy  viscosity  model 
is  indeed  modelling  the  physics  and  not  just  correcting  for  the 
numerical  truncation  errors . 
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VII.  Results 


Presently  the  code  required  to  calculate  the  truncation 
error  terms  (or  the  numerical  shear  stress  terms)  using  the 
FORTRAN  code  generated  by  MACSYMA  does  not  run  properly. 
Therefore,  no  results  will  be  presented  yet.  We  expect  to  do 
this  in  the  near  future. 


VIII.  Discussion 


Analysis  of  Truncation  Error  Terms 

During  the  course  of  previous  analyses  (Refs.  5  and  6)  of 
truncation  errors  for  Lax-Wendroff  schemes  applied  to  the  Euler 
equations,  we  found  that  the  leading  second-order  truncation 
error  term  was  at  least  two  orders  of  magnitude  longer  than  the 
third-order  term. 

Since  the  second-order  term  is  a  third  derivative 
(dispersive  only  for  a  linear  equation)  and  since  the  viscous 
stress  terms  are  second  derivatives  (usually  considered  to  be 
dissipative),  it  would  seem  that  little  interaction  between  the 
stress  terms  and  the  error  terms  would  occur  as  the  third-order 
term  (fourth  derivative)  is  very  small.  We  will  demonstrate  both 
analytically  and  numerically  that  for  a  nonlinear  equation,  large 
dissipative  and  dispersive  effects  can  result  from  the  leading 
term  even  though  only  one  effect  might  at  first  be  presumed  based 
on  the  apparent  order  of  the  derivative.  Since  the  leading  term 
predominates  for  Lax-Wendroff  schemes,  it  is  unnecessary  to  go 
through  the  extremely  laborious  process  of  examining  the  higher 
order  terms . 

To  begin,  the  viscous  Burgers  equation  is  presented  as  a 
model  equation,  both  in  linear  and  nonlinear  forms. 

2 

w 

t  '2  'x  v  r  x'x  rxx  r  XX 
where  /x  =  fi(x) 


and  the  linearized  version  is 


To  provide  a  base  for  further  discussion,  a  traveling  wave 
solution  is  assumed  for  this  equation  of  where  k  is  a  wave  number 
and  w  is  a  frequency. 

w  =  ei(kx  "  wt) 

differentiation  of  this  wave  wrt  space  and  time  yields 
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-iwe 
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i(kx-wt ) 
i ( kx-wt ) 
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XX 


k2ei(kx-wt) 
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XXX 


-ik3ei ^  kx-wt ) 
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k4ei(kx-wt) 


Substitute  the  appropriate  derivatives  into  the  linearized 
Burgers  equation. 


-i we^  ^  +  c  ike^  ^  ike^  ^  =  -  u  k2e^  ^ 

X 

Solve  for  u 

2 

-u  =  -c  k  +  /xx k  +  fik  i 


This  equation  is  in  the  form  suggested  by  Whitham  (Ref.  9) 
for  determining  whether  an  equation  produced  dispersion  between 
traveling  waves  of  different  frequency.  Whitham  states  that  for 


an  equation  of  the  form  u  -  W(k),  the  equation  will  produce 
dispersion  if  the  equation  u  =  W(k)  is  real  and  if 


9W(k] 


0ki6k j 


2  2 

The  linear  heat  equation  -iw  =  +k  a  or  w  =  ik  a.  This  equation 
violates  the  first  of  Whithaus  criteria  for  dispersion,  as  we 
would  expect  to  be  the  case  since  physically  this  linear  equation 
is  completely  dissipative.  We  will  now  use  this  criteria  to 
examine  the  nature  of  the  error  terms  in  the  modified  equation 
for  Burgers  equation. 


The  modified  equation  for  FTOS  differencing  of  the  nonlinear 
Burgers  equation  is 


"t  +  <W  /2>. 


''“xx  +  Vx 


{6ww  +2ww  } 

1  V  W  YYV  * 


“24  {6  Wxx  +  8  wvW*Y  +  2w 


x  3x 


We  know  from  physical  considerations  that  the  first  term  on  the 
right  hand  side  of  this  equation  is  dissipative;  the  second  term 
is  on  cursory  examination  primarily  dispersive.  If  we  wish  to 
determine  the  interaction  between  the  modified  equation 
truncation  error  terms  and  the  stress  terms  in  the  original 
equation,  then  the  nature  of  the  modified  equation  terms  must  be 
examined . 


First  an  equation  is  created  consisting  of  only  the  time 
term  and  the  leading  modified  equation  terms: 


w. 


Ax' 


{  -  6w  w  +  2  w  w  } 

l  X  XX  vvv) 
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Substituting  the  assumed  solution 
yields : 


into  this  test  equation 


2 

Ax  .  . ,  3  i(kx-wt) , 
ui  =  — 7—  {  4k  e  '  ' } 

or 

2 

Ax  3 

u>  =  — g—  {4k  (cos  6  +  i  sin  6)} 
where  6  =  kx  -  wt 

It  is  immediately  obvious  that  the  first  of  Whitham's 
criteria  is  violated  in  that  ui  =  W(k)  is  not  real.  At  some  risk, 
we  conclude  then  that  this  term  must  have  both  dispersive  and 
dissipative  effects. 


This  conclusion  is  important  since  pre  us  v  •  (Rt  .5 
and  6)  has  shown  that  the  leading  term  is  lar  ^  r,  tr.  '  the  next 
term  by  approximately  an  order  of  magnitude  for  Jormacks 
method.  If  this  leading  term  produces  dissipative  effects,  it 
has  the  potential  of  completely  overwhelming  the  dissipative 
effects  of  the  third-order  term  which  has  been  thought  to  be 
primarily  dissipative. 


A  similar  analysis  applied  to  the  third  order  truncation 
error  term  yields  the  equation 


U)  = 


2Ax' 


k  (i  cor  0  -  sin  0) 


We  note  that  this  result  is  similar  to  that  achieved  above,  but 
the  effect  is  out  of  phase.  The  analysis  can  be  continued  by 
deriving  an  equation  based  on  the  sum  of  both  terms: 


2  2  3 

u>  =  /,  Ax  k  {(cos  6  -  Axk  sm  6) 


+  i  (sin  8  +  Axk  cos  0)} 


We  can  infer  from  this  equation  that  the  effect  of  the  third 
order  term  is  to  perturb  by  a  small  amount  the  dispersion  and 
dissipation  resulting  from  the  second-order  term.  This 
perturbation  will  be  locally  maximum  where  the  value  of  the  phase 
angle  is  such  that  the  dispersion  or  dissipation  due  to  the 
second-order  term  is  locally  zero. 


We  can  conclude  from  this  analysis  that  the  leading  error 
term  of  the  modified  equation  produces  both  dispersive  and 
dissipative  effects  of  equal  amplitude  for  appropriate  values  of 
the  phase  angle  6.  We  further  conclude  that  the  effect  of  the 
third-order  term  is  to  modify  slightly  these  effects  such  that 
dispersion  is  reduced  and  dissipation  is  increased.  Based  on 
this  analysis  and  error  analysis  research  cited  previously,  we 
maintain  that  examination  of  the  leading  truncation  error  term  is 
sufficient  to  determine  the  major  effects  on  the  dissipative  eddy 
viscosity  turbulence  models. 


IX.  Concluding  Remarks 


Error  analysis  of  finite  difference  equations  applied  to  the 
full  Navier-Stokes  equations  proved  to  be  an  ambitious 
undertaking,  given  the  tools  available  at  the  beginning  of  the 
Research.  The  majority  of  the  problems  were  caused  by  reliance 
on  MACSYMA  for  the  rapid  and  accurate  generation  of  the  modified 
equations  and  Jacobian  matrices.  Although  very  powerful,  MACSYMA 
(version  309)  proved  not  to  have  the  ability  to  factor  complex 
expressions  or  the  internal  storage  necessary  to  allow  generation 
of  the  modified  equations.  Initial  attempts  to  generate  the 
Jacobian  matrices  encountered  the  same  difficulties  as  for  the 
modified  equations.  Although  these  difficulties  were  partially 
overcome,  it  was  not  until  routines  were  written  based  on  the 
suggestion  by  Wigton  that  these  Jacobians  could  be  generated 
efficiently  in  only  600  lines  of  code. 

Several  important  and  useful  results  were  deveoped  in  th 
ecourse  of  this  research.  Teh  leading  error  terms  for 
MacCormacks  and  Beam-Warming  methods  applied  to  the  full  2-d 
Navier-Stokes  equations  were  developed.  This  was  a  once-and-f or- 
all  development  as  these  terms  can  be  used  for  all  future  error 
analyses  of  these  methods.  It  was  also  demonstrated  that  the 
modified  equation  for  MacCormack's  explicit  scheme  could  be 
developed  in  compact  form. 

Very  powerful  MACSYMA  Routines  were  developed  to  generate 
FORTRAN  code  to  compute  Jacobian's  to  third  order  in  only  a  few 
hours  of  interactive  time  on  a  VAX  11/785  computer.  Note  that 
approximately  6000  lines  of  code  are  written  automatically  during 
this  interactive  time.  These  routines  can  easily  be  generalized 
to  produce  Jacobians  to  arbitrary  order. 


-77  - 


iffiffiEHsSx 


It  was  also  shown  that  the  leading  term  can  produce  both 
dissipative  and  dispersive  effects  on  the  solution.  The  other 
error  terms  can  be  shown  to  be  perturbations  on  the  leading  term. 
Therefore,  it  may  be  necessary  to  develop  only  the  leading  error 
terns  for  the  majority  of  methods. 

Unfortunately,  no  numerical  error  results  were  obtained  as 
the  checkout  of  the  coding  of  the  modified  equations  was  not 
complete  by  the  expiration  of  the  contract  period. 


Figure  3.  Surface  Pressures 
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Appendix  A 


GENERATION  OF  THE  FLUX  JACOB IANS  AND  FORTRAN  CODE  j 

As  was  noted  previously,  the  symbolic  manipulation  language  MACSYMA 
was  used  to  perform  the  differentiations  necessary  to  obtain  the  terms 
in  the  flux  Jacobians  and  also  to  write  the  necessary  FORTRAN  code.  An 
extended  effort  was  also  made  to  develop  the  modified  equations  using 
MACSYMA  with  no  success  whatsoever.  The  versions  of  the  package 
available  to  the  principal  investigator  during  the  course  of  this  work 
had  neither  the  necessary  internal  storage  space  nor  capable  factoring 
routines  that  would  have  been  necessary  to  make  the  modified  equation 
development  possible.  During  the  first  attempts  to  develop  the  flux 
jacobians,  the  same  problems  were  experienced  that  were  encountered  in 
attempting  to  develop  the  modified  equations.  The  derivatives  of  the 
flux  vectors  could  be  taken  without  incident  (at  least  up  to  the  third 
Jacobians,  when  storage  problems  were  again  encountered).  However,  each 
non-zero  element  of  the  Jacobian  would  result  in  more  lines  of  code 
than  is  permissable  under  FORTRAN.  Techniques  and  routines  were 
developed  for  factoring  and  combining  the  terms,  but  as  much  as  2  days 
interactive  time  was  required  to  reduce  each  element  to  more  manageable 
size.  Even  then,  some  of  the  elements  were  beyond  the  allowable  FORTRAN 
line  limit  and  would  have  required  breaking  apart. 

This  difficulty  was  overcome  through  extending  a  suggestion  by 
Wigton  (Ref.  10)  for  reducing  the  size  of  long  derivative  expressions  in 
MACSYMA.  Wigton' s  suggestion  was  to  first  take  the  derivatives  of 
functions  appearing  in  the  expression  and  to  give  them  separate  names. 
This  is  step  which  makes  this  useful  is  that  a  "GRADEF"  function  exists 
in  MACSYMA  that  performs  the  step  "the  derivative  of  F  wrt  x  is  to  be 
called  name"  where  name  is  formed  to  match  that  given  when  the 
derivative  was  previously  taken.  After  this  step,  the  value  of  the 
original  function  is  removed.  MACSYMA  will  then,  when  asked  to  take  the 


a*. 


derivative  of  the  function,  search  the  table  created  by  GRADEF  and 
substitute  the  name  that  you  have  given  the  derivative  rather  than 
expression  itself.  This  results  in  a  chaining  of  the  derivatives  which 
results  in  much  shorter  FORTRAN  expressions. 

The  above  procedure  was  incoporated  in  a  set  of  automated  routines 
that  will  allow  FORTRAN  code  to  be  produced  to  compute  the  first  and 
second  Jacobians  of  the  full  2-D  Navier-Stokes  equations  in 
approximately  2  to  3  hours  of  interactive  time.  The  third  Jacobians 
require  an  additional  2  hours.  The  time  savings  of  this  procedure  are 
obvious  as  approximately  2500  lines  of  code  are  generated  for  the  1st 
and  2nd  Jacobians  alone.  The  complete  routines  for  generating  the 
Jacobians  and  FORTRAN  code  are  given  in  Appendix  B.  A  copy  of  the 
FORTRAN  code  generated  by  these  routines  is  also  shown  below.  In 
Appendix  C  is  a  copy  of  the  Navier-Stokes  equations  as  they  were 
programed  for  use  as  a  start  file  for  the  routines.  We  will  now 
describe  in  detail  an  example  of  the  automated  routines. 

The  routines  are  all  constructed  using  the  macro  function  "BUILDQ " 
which  is  a  powerful  substitution  routine  with  the  capability  to  call 
any  number  of  other  macros  or  functions  and  to  pass  variables  to  them. 
The  functions  "DIFF" , "GRADEF" ,CONCAT" , "APPLY" , "SUBST” , AND  "FORTRAN"  are 
also  used  and  will  be  described  in  turn.  The  first  macros  created  were 
the  name_  routines,  such  as: 


nameu(var,ii) : := 

buildq( [ var,ii] ,concat( 'var, 'u,ii) ) ; 

This  routine  passes  the  arguments  var  and  ii  to  the  concat  function 
which  creates  a  name  fuO  for  instance  if  var=f  and  ii=0.  Naming 
conventions  for  the  derivatives  are  in  general(  if  q=[r,m,n,e]  is  the 
solution  vector)  that  p  indicates  differentiation  wrt  q,  u  indicates 
diff.  wrt  the  derivative  of  q  by  zeta,  and  v  indicates  the  derivative  of 


q  wrt  eta  with  the  number  (ii  above)  indicating  which  component  of  q. 
The  next  macro  created  was  gensub  which  substitutes  the  subscripted 
variables  to  be  used  in  the  FORTRAN  code. 

gensub( var) : : = 

buildq( [var] ,nvar: subst( [ 

gam  =  gamma,j  =  rdj [ kv, jv] ,mu  =  rrmu[kv, jv] , 
ztx  =  ztxfkv, jv, 1 ] , zty  =  zty [ kv, jv, 1 ] , 
etx  =  etx[kv, jv,l],ety  =  etyfkv, jv, 1 ] , 

'DIFF(m,zta,l)  =  roudzt[kv, jv] , 

'DlFF(m,eta, 1 )  =  roudet [kv, jv] , 

'DlFF(n,zta, 1)  =  rovdzt[kv, jv] , 

' D1FF( n,eta, 1 )  =  rovdet [kv, jv] , 

'DlFF(e,zta,l)  =  roedzt[ kv, jv] , 

'DIFF(e,eta, 1)  =  roedet[kv, jv] , 

' DIFF ( r, zta, 1 )  =  rhodzt[kv, jv] , 

' DIFF ( r , eta, 1 )  =  rhodet[kv, jv] , 

r  =  rho[kv, jv,l],m  =  rhou[kv, jv, 1 ] , 

n  =  rhov[kv, jv,l],e  =  rhoe[kv, jv, 1 ] ] , var ) ) ; 


The  next  macro  created  was  output _  which  was  used  to  produce 

FORTRAN  code  from  the  Jacobian  element  loaded  into  te. 

outputdu(var,te,ii)  :  :  = 

buildq( [var,te,ii] , 
fortran ( nameu ( var, ii)=te) ) ; 


These  macros  were  then  brought  together  in  the  macros  proc_  which 
were  used  to  produce  the  function  derivatives  to  be  used  in  the  Jacobian 
elements.  In  the  example  below,  the  derivative  of  var  wrt  the  derivative 


of  q[iij  wrt  to  2eta  is  loaded  into  te,  the  substitution  made,  FORTRAN 
code  output,  and  the  function  apply  is  used  to  apply  gradef  to  tell 
MACSYMA  that  the  derivative  of  var  wrt  the  derivative  of  q[ii]  wrt  zeta 
is  the  output  of  nameu. 

procu(var) : := 

buildq( [var] , 

for  ii:0  thru  3  do  (  te: dif f ( var ,dif f (q[ ii ] , zta) ) , 

if  TE  #  0  THEN  (gensub(te) ,outputdu(var,nvar, ii) , 
apply ( 'gradef, [ ' var, dif f (q[ ii ] ,  zta) , 

nameu (var, ii) ])))); 

A  more  complex  output  macro  is  required  for  creating  the  array  names 
and  outputting  the  FORTRAN  code  for  the  flux  jacobians. 

In  the  following  pages  the  various  Jacobians  are  given.  The 
notation  follows  that  given  in  Section  V. 


totrds  =  0.6666666666666667 


cau  -  rhov (kv , jv, 1) *zty (kv, j v, 1) /rho(kv, j v, 1) +rhou(kv, j v, 1) *ztx (kv 
1  » J  v ,  1) /rho (kv ,  3  v ,  1)  v 

caudO  =  ~rhoy (ky ,  j  v ,  1) *zty (kv , j  v , 1) /rho (kv ,  j  v ,  1)  *  *2-rhou (kv ,  j  v ,  1)  * 
1  ztx(kv, jv , 1) /rho(kv, j y,1) **2  ' 

caudl  =  ztx  (kv , j  v ,  1)  / rho  (kv ,  j  v ,  1) 
caud2  =  zty (kv , jv, l)/rho(kv , jv,l) 

cauddOO  =  2*rhov (kv  j  v ,  1) *zty (kv , j  v , 1) /rho (kv , j v , 1) **3+2*rhou (kv , j 
1  v,l)*ztx(kv,3v,l)/rho(kv,jv,l)**3 
cauddOl  =  -ztx(kv,jv,l)/rho(kv,jv,l)**2 
caudd02  =  -zty (kv, j v, l)/rho(kv, j v, 1) **2 
cauddlO  =  -ztx(kv, jv,l) /rho (kv, j v, 1) **2 
caudd20  =  -zty(kv, jv,l)/rho(kv, jy,l)**2 

cauddOO  «  2*rhov(ky3v,l)*zty(kv,jv>l)/rho(kv,3v,l)**3+2*rhou(kv,j 
1  v,l)*ztx(kv,3v,l)/rho(kvJ jv,l)**3 
cauddOl  =  -ztx(kv, jv,l)/rho(kv, jv,l)**2 
caudd02  =  -zty(kvf jv,l)/rho(kv, jv,l)**2 
cauddlO  =  -ztx(kv, jv,l)/rho(kv,  jv,l)**2 
caudd20  =  -zty(kv, jv,l)/rho(kv, jv,l)**2 

cav  =  ety  (kv ,  j  v ,  1)  *rhov  (kv ,  j  v ,  1)  /rho(kv ,  j  v ,  1)  +etx  (kv,  j  v ,  1)  *rhou  (kv 
1  .JV.l)/rho(kv,3v,l)  k 

cavdO  =  -ety(kv  jv,l)*rhov(kv,jv,l)/rho(kv,jv,l)**2-etx(kv,3v,l)*r 

1  hou(kv ,3V, 1) /rho (kv, jv, 1) **2 

cavdl  =  etx(kv, jv,l)/rho(kv, jv,l) 
cavd2  =  ety (kv , j  v , 1) / rho (ky , j  v , 1) 

cavddOO  =  2*ety(kv  jv,l)*rhov(kv, jv,l)/rlio(kv, jv,l)**3+2*etx(kv, jv 

1  , 1 ) *rhou (kv , j v , 1) / rho (kv , j v , 1) **3 

cavddOl  =  -etx(kv,jv,l)/rho(kv,jv,l)**2 
cavdd02  =  -ety (kv, jv, 1) /rho (kv, jv,l)**2 
cavddlO  =  -etx (kv, jv, l)/rho (kv, jv,l)**2 
cavdd20  =  -ety(kv,jv,l)/rho(kv,jv,l)**2 

cavddOO  =  2*®ty (kv, jv,l)*rhov(kv, jv,l)/rho(kv, jv,l)**3+2*etx(kv,  jv 
1  ,l)*rhou(kv,3v,l)/rho(kv, jv,l)**3 
cavddOl  =  -etx(kv, jv,l)/rho(kv, jv,l)**2 
cavdd02  =  -ety (kv, jv, 1) /rho(kv, jv, 1) **2 
cavddlO  =  -etx(kv,jv,l)/rho(kv, jv,l)**2 
cavdd20  =  -ety(kv, jv, l)/rho(kv, jv,l)**2 

p  =  (rhoe (ky , j  v, 1) -rho (kv , j v , 1) * (rhov (kv , j v , 1) **2/rho (kv , j v , 1) **2+ 

1  j/h°/ J  v * !2/rho (kv ,  j v ,  1)  * *2) /2 . 0)  *  (gamma-1) 

pdO  =  (-  (rkov  (kv ,  j  v ,  1)  **2/rho  (kv ,  j  v ,  1)  *  *2+rhou  (kv ,  j  v ,  1)  **2/rho  (kv , 

9  39,1l**V/2:0~i'OQv/’iY>1)*(~2*rhoY(kY>jY>1)**2/rho(kY,jv,l)**3 

2  -2*rhou (ky , 3y , 1) **2/rho (kv , j  v , 1) *  *3) /2 . 0) * (gamma-1) 
pdl  =  -rhou (kv, 3 v,l)* (gamma-1) /rho (kv,jv,l) 

pd2  -  -rhov (kv, jv, 1) * (gamma-1) /rho (kv, jv,  1) 
pd3  =  gamma-1 

pddOO  =  (-rho(kv, jv, 1) *(6*rhov(kv, jv,l) **2/rho(kv, jv,l) **4+6*rhou( 

1  fv,rAl)r2^ho^kv\iv,1)/*4)/2-0+2*rhov(kv'iv'i)**2/rho(kvJ3v»i 

2  j  ,i**3+2*rhouCkv,jv,1)**2/rho(kv,jv,l)**3)*(gamma-l) 
pddOl  =  rhou(kv , j v, 1) * (gamma-l)/rho(kv, jv, 1) **2 
pdd02  =  rhov(kv , jv, 1) *  (gamma- l)/rho(kv, jv, 1)  **2 
pddlO  =  rhou (kv , 3  v , 1) * (gamma-1) /rho (kv , j v , 1)  **2 
pddll  =  -(gamma-1) /rho (ky, jv,l) 

pdd20  =  rhov(kv, j v, 1) * (gamma-1) /rho (kv, j v, 1)  **2 
pdd22  =  - (gamma- 1) /rho (kv, j  v , 1) 

pddOO  =  (-rho (kv, j v, 1) *  (6*rhov (kv , jv, 1) **2/rho(kv, j v, 1) *+4+6*rhou( 


1  kv , j  v , 1) *  *2/rho (kv , j  v , 1) **4) /2 . 0+2*rhov (kv , j  v , 1) *  *2/ rho (kv ,  j  v ,  1 

2  )  **3+2*rhou(kv , j v, 1) **2/rho(kv , j v, 1) **3) * (gamma-1) 
pddOl  =  rhou(kv, j v,l)* (gamma-1) /rho (kv, jv,l)**2 
pdd02  =  rhov(kv, j v,l)* (gamma-1) /rho (kv, jv,l)**2 
pddlO  =  rhou(kv, jv,l) * (gamma-1) /rho (kv,jv,l)**2 
pddll  =  - (gamma- 1) /rho (kv, jv,l) 

pdd20  =  rhov(kv, jv, 1) * (gamma-l)/rho(kv, jv,l)**2 
pdd22  =  - (gamma-1) /rho (kv,jv,l) 

duz  =  roudzt (kv , j  v) / rho (kv , j  v , 1) -rhodzt (kv , j  v) *rhou (kv , j  v , 1) / rho (k 
1  v, j v, 1) **2 

duzdO  =  2*rhodzt(kv, jv) *rhou(kv, j v, 1) /rho(kv, jv, 1) **3-roudzt (kv, jv 
1  ) /rho(kv, jv, 1) **2 

duzdl  =  -rhodzt(kv, jv)/rho(kv, jv,l)**2 
duzuO  =  -rhou(kv, j v, l)/rho(kv, jv,l)**2 
duzul  =  1/rho (kv,jv,l) 

duzddOO  =  2*roudzt(kv, jv) /rho(kv, jv, 1) **3-6*rhodzt(kv, jv)*rhou(kv, 
1  jv, l)/rho(kv, jv,l)**4 
duzddOl  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 
duzddlO  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 

duzddOO  =  2*roudzt (kv , j v) / rho (kv , j v , 1) **3-6*rhodzt (kv , j v) *rhou (kv , 
1  jv, l)/rho (kv, jv, 1) **4 
duzddOl  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 
duzddlO  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 
duzduOO  =  2*rhou(kv, jv,l)/rho(kv, jv,l)**3 
duzduOl  =  -l/rho(kv, jv,l)**2 
duzdulO  =  -l/rho(kv, jv,l)**2 
duzudOO  =  2*rhou(kv, jv, 1) /rho (kv, jv, 1) **3 
duzudOl  =  -l/rho(kv, jv, 1) **2 
duzudlO  =  -1/rho (kv, jv, 1) **2 

due  =  roudet (kv , j  v) /rho (kv , j  v , 1) -rhodet (kv , j  v) *rhou (kv , j  v , 1) / rho (k 
1  v,jv,l)**2 

duedO  =  2*rhode t (kv , j  v) *rhou (kv , j  v , 1 ) /rho (kv , j  v , 1) *  *3-roudet (kv , j  v 
1  )/rho(kv, jv,l)**2 
duedl  =  -rhodet (kv, jv) /rho (kv, jv, 1) **2 
duevO  =  -rhou(kv, jv,l)/rho(kv, jv,l)**2 
duevl  =  1/rho (kv, jv,l) 

dueddOO  =  2*roudet (kv , j  v) /rho (kv , j v , 1) *  *3-6*rhodet (kv , j v) *rhou (kv , 
1  jv,l)/rho(kv, jv,l)**4 
dueddOl  =  2*rhodet(kv, jv)/rho(kv, jv,l)**3 
dueddlO  =  2*rhodet(kv, jv)/rho(kv, jv,l)**3 

dueddOO  =  2+roudet (kv , j  v) / rho (kv , j  v , 1 ) *  *3-6*rhodet (kv , j  v) *rhou (kv , 
1  jv,l)/rho(kv, jv,l)**4 
dueddOl  =  2*rhodet(kv, jv)/rho(kv, jv,l)*+3 
dueddlO  =  2*rhodet(kv, jv) /rho(kv, jv, 1) **3 
duedvOO  =  2*rhou(kv, jv,l)/rho(kv, jv,l)**3 
duedvOl  =  -l/rho(kv, jv,l)**2 
duedvlO  =  -1/rho (kv, jv,l)**2 
duevdOO  =  2*rhou(kv, jv,l)/rho(kv, jv,l)**3 
duevdOl  =  -1/rho (kv, jv,l)**2 
duevdlO  =  -l/rho(kv, jv, 1) **2 

dvz  =  rovdzt (kv , j  v) / rho (kv , j  v , 1) -rhodzt (kv , j v) *rhov (kv , j  v , 1) / rho (k 
1  v, j v, 1) **2 

dvzdO  =  2*rhodzt(kv, jv) *rhov(kY, jv, 1) /rho(kv, jv, 1) **3-rovdzt(kv, jv 
1  )/rho(kv, jv,l)**2 
dvzd2  =  -rhodzt(kv, jv)/rho(kv, jv,l)**2 
dvzuO  =  -rhov(kv, jv,l)/rho(kv, jv,l)**2 


dvzu2  =  l/rho(kv, j v, 1) 

dvzddOO  =  2*rovdzt(kv  ,  j v)/rho(kv, jv, 1) **3-6*rhodzt(kv, jv) *rhov(kv, 
1  jv, l)/rho(kv, jv,l)**4 
dvzdd02  =  2*rhodzt(kv, jv) /rho(kv, jv, 1) **3 
dvzdd20  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 

dvzddOO  =  2*rovdzt(kv , j v)/rho(kv, j v, 1) **3-6*rhodzt(kv, jv) *rhov(kv, 
1  jv, l)/rho(kv, jv,l)**4 
dvzdd02  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 
dvzdd20  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 
dvzduOO  =  2*rhov(kv, jv, l)/rho(kv, jv,l)**3 
dvzdu02  =  -l/rho(kv, jv,l)**2 
dvzdu20  =  -l/rho(kv, jv,l)**2 
dvzudOO  =  2*rhov(kv, jv, 1) /rho(kv, jv, 1) **3 
dvzud02  =  -l/rho(kv, jv,l)+*2 
dvzud20  =  -l/rho(kv,  jv,  1)  **2 

dve  =  rovdet (kv , j  v) / rho (kv , j  v , 1) -rhodet (kv , j v) *rhov (kv , j  v , 1) / rho (k 
1  v , jv , 1) **2 

dvedO  =  2*rhodet (kv, jv) *rhov(kv, jv, 1) /rho(kv, jv, 1) **3-rovdet(kv, jv 
1  ) /rho(kv, jv, 1) **2 

dved2  =  -rhodet(kv, jv)/rho(kv, jv,l)**2 
dvevO  =  -rhov(kv, jv,l)/rho(kv, jv,l)**2 
dvev2  =  l/rho(kv, jv,l) 

dveddOO  =  2*rovdet (kv , j  v) /rho (kv , j  v , 1) **3-6*rhodet (kv, j v) *rhov (kv, 
1  jv,l)/rho(kv, jv,l)**4 
dvedd02  =  2*rhodet(kv, jv)/rho(kv, jv,l)**3 
dvedd20  =  2*rhodet(kv, jv)/rho(kv, jv,l)**3 

dveddOO  =  2*rovdet (kv , j  v) /rho (kv , j  v , 1) **3-6*rhodet (kv , j  v) *rhov (kv , 
1  jv,l)/rho(kv, jv,l)**4 
dvedd02  =  2*rhodet(kv, jv)/rho(kv, jv, 1) **3 
dvedd20  =  2+rhodet(kv, jv)/rho(kv, jv,l)**3 
dvedvOO  =  2*rhov(kv, jv, 1) /rho(kv, jv, 1) **3 
dvedv02  =  -l/rho(kv, jv,l)**2 
dvedv20  =  -l/rho(kv, jv,l)**2 
dvevdOO  =  2*rhov(kv, jv, l)/rho(kv, j v, 1) **3 
dvevd02  =  -l/rho(kv, j v, 1) **2 
dvevd20  =  -l/rho(kv, jv, 1) **2 

dez  =  - (-2*rhodzt (kv , j v) *rhov (kv , j v , 1) **2/rho (kv , j v, 1) **3+2*rovdzt 

1  (kv, jv)*rhov(kv, jv,l)/rho(kv, jv,l)**2-2*rhodzt(kv, jv)*rhou(kv, j 

2  y, 1) **2/rho(kv , jv, 1) **3+2*roudzt(kv, jv) *rhou(kv, jv,l) /rho(kv, jv 

3  ,l)**2)/2. 0-rhodzt (kv , j  v) *rhoe (kv , j  v , 1) /rho (kv , j  v , 1) * *2+roedzt ( 

4  kv , jv)/rho(kv , jv, 1) 

dezdO  =  - (6*rhodzt (kv , j  v) *rhov (kv , j v , 1) **2/rho (kv , j  v , 1) **4-4*rovdz 

1  t(kv , jy) *rhov(kv , jv , 1) /rho(kv , jv,l)**3+6*rhodzt(kv, jv)*rhou(kv, 

2  jv,l)**2/ rho (kv , j  v , 1) * *4-4*roudzt (kv , j v) *rhou (kv , j  v , 1) /rho (kv , j 

3  v, 1) **3) /2.0+2*rhodzt(kv, jv) *rhoe(kv, jv, 1) /rho(kv, jv, 1) **3-roed 

4  zt(kv, jv)/rho(kv, jv,l)**2 

dezdl  =  - (2*roudzt (kv , j v) / rho (kv , j  v , 1) **2-4+rhodzt (kv , j v) *rhou (kv , 
1  jv, l)/rho(kv, jv,l)**3)/2.0 

dezd2  =  -(2*rovdzt (kv , j  v) / rho (kv , j  v , 1 ) *  *2-4*rhodzt (kv , j  v) *rhov (kv , 
1  jv, l)/rho(kv, jv,l)**3)/2.0 
dezd3  =  -rhodzt(kv, jv)/rho(kv, jv,l)**2 

dezuO  =  -(-2*rhov(kv, jv , 1) **2/rho (kv, jv, 1) **3-2*rhou(kv, j v, 1) **2/r 
1  ho(kv, jv, 1) **3)/2.0-rhoe(kv, jv,l)/rho(kv, jv,l)**2 
dezul  =  -rhou(kv, jv,l)/rho(kv, jv,l)**2 
dezu2  =  -rhov(kv , jv, 1) /rho(kv, j v, 1) **2 
dezu3  =  l/rho(kv, jv, 1) 

dezddOO  =  - (-24*rhodzt (kv , j v) *rhov(kv, jv, 1) **2/rho(kv, j v, 1) **5+12* 


1  rovdzt (kv ,  j  v) *rhov (kv , j  v , 1) /rho (kv , j  v , 1) * *4-24*rhodzt (kv , j  v) *rh 

2  ou (kv , j  v , 1) *  *2/ rho (kv , j  v , 1 ) *  *5+12*roudz t (kv , j  v) *rhou (kv , j  v , 1 ) /r 

3  ho (kv , j  v , 1) *  *4) /2 . 0-6*rhodzt (kv ,  j  v) *rhoe (kv ,  j  v ,  1)  / rho (kv , j  v , 1) * 

4  *4+2*roedzt (kv , j v) /rho (kv , j  v , 1) **3 

dezddOl  =  - (12*rhodzt(kv , jv) *rhou(kv, jv, 1) /rho(kv, jv, 1)  *  4-4*roudz 
1  t(kv, jv)/rho(kv, jv, 1) **3)/2.0 

dezdd02  =  - (12*rhodzt (kv , j v) *rhov (kv ,  j  v , 1) /rho (kv , j v , 1) **4-4*rovdz 
1  t(kv, jv)/rho(kv, jv, 1) **3)/2.0 
dezdd03  =  2*rhodzt(kv, jv) /rho(kv, jv , 1) **3 

dezddlO  =  - (12*rhodzt (kv , jv) *rhou(kv, j v , 1) /rho(kv, j v , 1) **4-4*roudz 
1  t(kv, jv)/rho(kv, jv,l)**3)/2.0 
dezddll  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 

dezdd20  =  - (12*rhodzt (kv , j  v) *rhov (kv , j  v , 1) /rho (kv , j  v , 1) **4-4*rovdz 
1  t(kv, jv)/rho(kv, jv,l)**3)/2.0 
dezdd22  =  2*rhodzt(kv , jv) /rho(kv , jv , 1) **3 
dezdd30  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 

dezddOO  =  - (~24*rhodzt (kv , j  v) *rhov (kv , j  v , 1) **2/ rho (kv , j  v , 1) * *5+12* 

1  rovdzt (kv , j  v) *rhov (kv , j  v , 1) /rho (kv , j  v , 1) **4-24*rhodzt (kv , j  v) *rh 

2  ou(kv, jv, 1) **2/rho(kv, jv, 1) **5+12*roudzt(kv, jv)*rhou(kv, jv,l)/r 

3  ho  (kv , j v , 1)  **4) /2 .0-6*rhodzt (kv , j v) *rhoe (kv , j v , 1) /rho (kv , j v , 1) * 

4  *4+2*roedzt (kv , j  v) /rho (kv , j  v , 1) **3 

dezddOl  =  - ( 12*rhodzt (kv , j  v) *rhou (kv , j  v , 1 ) /rho (kv , j  v , 1) * *4-4*roudz 
1  t(kv, jv)/rho(kv, j v, 1) **3)/2.0 

dezdd02  =  -(12*rhodzt(kv, jv) *rhov(kv, jv, l)/rho(kv, jv, 1) **4-4*rovdz 
1  t(kv, jv)/rho(kv, jv,l)**3)/2.0 
dezdd03  =  2*rhodzt(kv, jv)/rho(kv, jv, 1) **3 

dezddlO  =  - (12*rhodzt (kv , j v) *rhou (kv , j  v , 1) /rho (kv , j v , 1) *  *4-4*roudz 
1  t  (kv ,  j  v)  / rho  (kv ,  j  v ,  1)  *  *3)  /2 . 0 

dezddll  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 

dezdd20  =  - (12*rhodzt (kv , j  v) *rhov (kv , j v , 1) /rho (kv , j v , 1) *  *4-4*rovdz 
1  t(kv, jv)/rho(kv, jv, 1) **3)/2.0 
dezdd22  =  2*rhodzt(kv, jv)/rho(kv, jv,l)**3 
dezdd30  =  2+rhodzt(kv, jv)/rho(kv, jv,l)**3 

dezduOO  -  2*rhoe (kv, j v, 1) /rho(kv, jv, 1) **3- (6*rhov(kv, jv, 1) **2/rho( 
1  kv, j v, 1) **4+6*rhou(kv, jv, 1) **2/rho(kv, jv,l) **4)/2.0 
dezduOl  =  2*rhou(kv, j v, 1) /rho (kv, jv, 1) **3 
dezdu02  =  2*rhov(kv, jv,l)/rho(kv, jv,l)**3 
dezdu03  =  -l/rho(kv, jv,l)**2 
dezdulO  =  2*rhou(kv, j v, 1) /rho(kv, jv, 1) **3 
dezdull  =  -l/rho(kv, jv, 1) **2 
dezdu20  =  2*rhov(kv, jv, l)/rho(kv, jv,l)**3 
dezdu22  =  -l/rho(kv, jv, 1) **2 
dezdu30  =  -l/rho(kv, jv, 1) **2 

dezudOO  =  2*rhoe(kv, jv, 1) /rho(kv, jv, 1) **3- (6*rhov(kv, jv, 1) **2/rho( 
1  kv, jv,l) **4+6*rhou(kv, jv,l)**2/rho(kv, jv, 1) **4)/2.0 
dezudOl  =  2+rhou(kv, jv,l)/rho(kv, jv,l)+*3 
dezud02  =  2*rhov(kv, jv, 1) /rho(kv, jv, 1) **3 
dezud03  =  -l/rho(kv, jv,l)**2 
dezudlO  =  2*rhou(kv , jv , 1) /rho(kv , jv, 1) **3 
dezudll  =  -l/rho(kv, j v, 1) **2 
dezud20  =  2*rhov(kv, jv, l)/rho(kv, jv, 1) **3 
dezud22  =  -l/rho(kv , j v. 1) **2 
dezud30  =  -l/rho(kv, jv, 1) **2 

dee  =  - (-2*rhodet (kv, j v) *rhov (kv, jv, 1) **2/rho(kv, j v, 1) **3+2*rovdet 

1  (kv , j v) *rhov (kv , j  v , 1) / rho (kv , j v , 1) **2-2*rhodet (kv , j v) *rhou (kv , j 

2  v, 1) **2/rho(kv , j v, 1) **3+2*roudet (kv , jv) *rhou(kv, jv, 1) /rho(kv , j v 

3  , 1) **2) /2.0-rhodet (kv, j v) *rhoe(kv, jv, l)/rho(kv, jv, 1) **2+roedet( 

4  kv, jv)/rho(kv, jv,l) 
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deedO  =  - (6*rhodet (kv , j  v) *rhov (kv , j v, 1) **2/rho (kv , j  v , 1) * *4-4*rovde 

1  t (kv , j  v) *rhov (kv , j  v , 1 ) / rho (kv , j  v , 1) **3+6*rhodet (kv ,  j  v) *rhou (kv , 

2  j  v , 1 ) *  *2/r ho (kv , j  v , 1) *  *4-4*roudet (kv , j  v) *rhou (kv ,  j  v ,  1 )  / rho (kv , j 

3  v, 1) **3) /2.0+2*rhodet(kv, jv) *rhoe(kv, jv, l)/rho(kv, jv,l) **3-roed 

4  et(kv, jv)/rho(kv, jv,l)**2 

deedl  =  -(2*roudet(kv, jv) /rho(kv, jv, 1) **2-4*rhodet(kv, jv)*rhou(kv, 
1  jv,l)/rho(kv, jv,l)**3)/2.0 

deed2  =  - (2*rovdet(kv, j v) /rho(kv, jv, 1) **2-4*rhodet(kv, j v) *rhov(kv, 
1  jv, 1) /rho(kv, jv, 1) **3)/2.0 
deed3  =  -rhodet(kv, jv)/rho(kv, jv,l)**2 

deevO  =  - (-2*rhov(kv, j v, 1) **2/rho(kv, jv, 1) **3-2*rhou(kv, jv, 1)  **2/r 
1  ho(kv, jv, 1) **3) /2.0-rhoe(kv, j v, 1) /rho(kv, jv, 1) **2 

deevl  =  -rhou(kv, jv,l)/rho(kv, jv,l)**2 
deev2  =  -rhov(kv, j v, l)/rho(kv, j v, 1) **2 
deev3  =  l/rho(kv, jv, 1) 

deeddOO  =  - (-24*rhodet(kv, j v) *rhov (kv, jv, 1) **2/rho(kv, jv, 1) **5+12* 

1  rovdet(kv, j v) *rhov(kv, j v, 1) /rho(kv, jv, 1) **4-24*rhodet(kv, jv) *rh 

2  ou(kv, jv,l)**2/rho(kv, j v, 1) **5+12*roudet(kv, jv)*rhou(kv, jv,l)/r 

3  ho(kv, jv, 1) **4)/2.0-6*rhodet(kv, jv)*rhoe(kv, jv, l)/rho(kv, jv, 1) * 

4  *4+2*roedet (kv , j  v) /rho (kv , j  v , 1) **3 

deeddOl  =  - (12*rhodet(kv, jv) *rhou(kv, jv, l)/rho(kv, jv, 1) **4-4*roude 
1  t(kv, jv) /rho(kv, jv, 1) **3) /2.0 

deedd02  =  - (12*rhodet(kv, j v) *rhov(kv, jv, l)/rho(kv, jv, 1) **4-4*rovde 
1  t(kv, jv)/rho(kv, jv, 1) **3)/2.0 
deedd03  =  2*rhodet(kv, jv)/rho(kv, jv, 1)  **3 

deeddlO  =  -(12*rhodet (kv, jv) *rhou(kv, jv, 1) /rho(kv, jv, 1) **4-4*roude 
1  t (kv , j v) /rho(kv, jv, 1) **3)/2.0 
deeddll  =  2*rhodet (kv, j v) /rho(kv, j v, 1)  **3 

deedd20  =  - (12*rhodet (kv, jv) *rhov(kv, jv, 1) /rho(kv, jv, 1) **4-4*rovde 
1  t(kv, jv)/rho(kv, jv,l)**3)/2.0 
deedd22  =  2*rhodet(kv, jv)/rho(kv, jv,l)**3 
deedd30  =  2*rhodet (kv , j v) /rho(kv , jv, 1)  **3 

deeddOO  =  - (-24*rhodet(kv, jv) *rhov(kv, jv , 1) **2/rho(kv, jv, 1) **5+12* 
1  rovdet (kv , jv) *rhov(kv, j v, 1) /rho(kv, j v , 1) **4-24*rhodet (kv, jv) *rh 

ou(kv ,  j  v  ,  1)  »*2/'r’no(kv ,  j  v ,  1)  **5+12*roudet (kv ,  j v)  *rhou(kv,  jv,  1) /r 
ho(kv , j v, 1) **4) /2.0-6*rhodet(kv, jv) *rhoe(kv, j v, 1) /rho(kv, jv, 1) * 
*4+2*roedet (kv , j  v) / rho (kv , j  v , 1)  *  *3 
deeddOl  =  - (12*rhodet (kv , j v) *rhou (kv , j v , 1) /rho (kv , j v , 1) **4-4*roude 
1  t(kv, jv)/rho(kv, jv,l)**3)/2.0 

deedd02  =  - (12*rhodet(kv, j v) *rhov(kv , jv, 1) /rho(kv, jv, 1) **4-4*rovde 
1  t(kv, jv)/rho(kv, jv,l)**3)/2.0 
deedd03  =  2*rhodet(kv , jv) /rho(kv, jv, 1)  **3 

deeddlO  =  - (12*rhodet (kv , j  v) *rhou (kv , j  v , 1) / rho (kv , j  v , 1) **4-4*roude 
1  t(kv, jv) /rho(kv, j v, 1) **3) /2.0 

deeddll  =  2*rhodet(kv, jv)/rho(kv, jv,l)**3 

deedd20  =  - (12*rhodet (kv , j v) *rhoY (kv , j v , 1) / rho (kv , j v , 1) **4-4*rovde 
1  t(kY, jv)/rho(kv, jv, 1) **3)/2.0 

deedd22  =  2*rhodet(kv, jv)/rho(kv, jv,l)**3 
deedd30  =  2*rhodet(kv, jv) /rho(kv, jv, 1)  **3 

deedvOO  =  2*rhoe(kv, jv, 1) /rho(kv, jv, 1) **3-(6*rhov(kv, j v, 1) **2/rho( 
1  kv, jv, 1) **4+6*rhou(kv, jv, 1) **2/rho(kv, jv, 1) **4) /2.0 
deedvOl  =  2*rhou(kv, j v, 1) /rho(kv, jv , 1) **3 
deedv02  =  2*rhov (kv, j v, 1) /rho(kv, jv, 1)  **3 
deedv03  =  -l/rho(kv, jv , 1) **2 
deedvlO  =  2*rhou(kv, j v, 1) /rho(kv , j v, 1)  **3 
deedvll  =  -l/rho(kv, jv, 1) **2 
deedv20  =  2*rhov (kv, j v, 1) /rho(kv, j v, 1) **3 
deedv22  =  -l/rho(kv, j v , 1) **2 
deedv30  =  -l/rho(kv, j v, 1) **2 
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deevdOO  =  2*rboe(kv, jv,l)/rho(kv, jv,l)**3-(6*rhov(kv, jv, 1) **2/rho( 
1  kv, jv,l)**4+6*rhou(kv, jv,l)**2/rho(kv, jv,l)**4)/2.0 
deevdOl  =  2*rhou(kv, jv, l)/rho(kv, jv,l)**3 
deevd02  =  2*rhov(kv, jv, l)/rho(kv, jv, 1) **3 
deevd03  =  -l/rho(kv, jv, 1) **2 
deevdlO  =  2*rhou(kv, jv,l)/rho(kv, jv,l)**3 
deevdll  =  -l/rho(kv, jv, 1) **2 
deevd20  =  2*rhov(kv, jv, l)/rho(kv, jv,l)**3 
deevd22  =  -l/rho(kv, jv,l)**2 
deevd30  =  -l/rho(kv, jv, 1) **2 


txx  =  rrmu(kv, j v) * (-dvz*zty (kv, jv, 1) +2.0*duz*ztx(kv, j v, 1)  -dve*ety ( 
1  kv, jv,l)+2.0*due*etx(kv, jY,l)) *totrds 
txxaO  =  (-dvz*zty (kv, jy, 1) +2.0*duz*ztx(kY, jv, 1) -dve*ety (kv, jv, 1) +2 

1  .0*due*etx (kv , j  v , 1) ) *mudO+totrds+rrmu (kv , j v) * (-dvzdO*zty (kv , j v , 

2  1) +2.0*duzd0*ztx (kv, j y, 1) -ayedO+ety (kv, j v, 1) +2.0*dued0*etx (kv, j 

3  v,l))*totrds 

txxdl  =  rrmu(kv, jv) * (2.0*duzdl*ztx(kY, j v, 1) +2.0*duedl*etx(kv, j v, 1) 
1  )*totrds 

txxd2  =  rr3iu(kv, j v) * (-dvzd2*zty (kv, j v, 1) -dved2*ety (kv, j v,  1) )  *totrd 
1  s 

txxuO  =  (-dvz*zty (kv, j y, 1) +2.0*auz*ztx  (kv, j v, 1) -dve*ety (kv, j v, 1) +2 

1  . 0*due*etx(kv, j v, 1)) *muuO*totrds+rrmu(kv, jv) * (2.0*duzu0*ztx (kv, 

2  j v, 1) -dvzuO*zty (kv, jv, 1) ) *totrds 

txxul  =  (-dvz*zty (kv, jv,l)+2.0*duz*ztx(kv, jv, 1) -dve*ety (kv, jv,l)+2 

1  . C*due*etx(kv, j v, 1) ) *muul*totrds+2.0*diizui*rrniu(kY,  j  y) *ztx (ky , j 

2  v,l)*totrds 

txxu2  =  (~avz*zty  (kv,  j v,  1)  -r2.0*duz*ztx(kv,  jv,  1) -ave*ety  (kv,  jv,  1)  +2 

1  . 0*due*etx(kv, j v, 1)) *muu2*totrds-dvzu2»rrmu(kv, jv) *zty (kv, jv, 1) 

2  *totrds 

txxvO  =  (-dvz*zty (kv, j v, 1) +2.0*duz*ztx (kv, jv, 1) -dve*ety (ky, j v, 1) +2 

1  .0*due*etx(kv, jv,l) ) *muYO*totrds+rrmu(kv, jv) * (2.0*duev0*etx(kv , 

2  j  v , 1) -dvevO*ety (kv , j v , 1) ) *totrds 

txxvl  =  (-dvz+zty (kv, jv, 1) +2 .0+duz*ztx(kv, jv, l)-dve+ety (kv, jv, 1) +2 

1  . 0*due*etx (kv, jv, 1) ) *muvl*totrds+2.0*duevl*rrnm(kv, jv) *etx(kv, j 

2  v,l)*totrds 

txxy2  =  (~dvz*zty (kv, jv, 1) +2.0*duz*ztx(kv, jv, 1) -dye+ety (ky, j v, 1) +2 

1  .0*due*etx(kv, jv,l)) *muv2*totrds-dvev2*rrmu(kv, jv) *ety (kv, jv , 1) 

2  *totrds 

txxddOO  =  (-dvz*zty (ky, jv, 1) +2.0*duz*ztx  (kv, jv, l)-dve*ety (ky, jy, 1) 

1  +2 . 0*due*etx (ky , j v , 1) ) *muddOO*totrds+2* (-dvzaO+zty (kv , j  v , 1)  +2 . 0 

2  *duzdO*ztx(kv, jv, l)-dvedO*e+-v(kY, jv, 1) +2.0*dued0*etx(kv, j v, 1) ) * 

3  mudO*totrds+rrmu(kv, jv) * (-dvzddOO*zty (kv, jv, 1) +2.0*duzdd00*ztx ( 

4  kv, j v, 1) -dveddOO*ety (kv, j v, l)+2.0*duedd00*etx (kv, j v, 1) ) *totrds 
txxddOl  =  (2.0*duzdl*ztx(kv, jv, 1) +2.0*duedl*etx(kv, jv, 1) ) *mudO*tot 

1  rds+rrmu(kv, jv) * (2.0*duzdd01*ztx(kv, jv, l)+2.0*duedd01*etx(kv, jv 

2  ,l))*totrds 

txxdd02  =  (~dvzd2*zty (kv, j v , 1) -dved2*ety (kv, jv, 1) ) *mudO*totrds+rrm 
1  u(kv , j v) * (~dvzdd02*zty (ky , j v , 1) -dvedd02*ety (kv , j v , 1) ) *totrds 

txxddlO  =  (2.0*duzdl*ztx (kv, jv, l)+2.0*duedl*etx(kv, j v, 1))  *mudO*tot 

1  rds+rrmu(kv, jv) * (2.0*duzddl0*ztx (kv, jv, 1) +2.0*dueddl0*etx (kv, j v 

2  , l))*totrds 

txxdd20  =  (-dvzd2*zty  (kv, jv, 1) -dved2*ety (kv, j v, 1) ) *mudO*totrds+rrm 
1  u(kv, jv) * (-dvzdd20*zty (kv, jv, 1) -dvedd20*ety (kv, jv, 1)) *totrds 
txxddOO  =  (-dvz*zty (kv, j v, 1) +2 .0*duz*ztx (kv, jv, 1) -dve*ety (kv, j v, 1) 

1  +2.0*due*etx(kv,  jv ,  1) )  *muddOO*totrds+2*  (-dvzdO+zty  (kv,  j  v,  1)  <-2 .0 

2  *duzdO*ztx(kv , j v, 1) -dvedO*ety (kv, j v, 1) +2.0*dued0*etx (kv, j v, 1) ) * 

3  mudO*totrds+rrmu(kY, j v) * (-dvzddOO+zty (kv , j v , 1) +2.0*duzdd00*ztx ( 

4  kv , j v, 1) -dveddOO*ety (kv, j v, 1) +2 . 0*duedd00*etx (kv, j v, 1) ) *totrds 
txxddOl  =  (2.0*duzdl*ztx  (kv, j v, 1) +2 . 0*duedl*etx(kv, j v, 1) ) *mudO*tot 

1  rds+rrmu(kv, j v) * (2.0*duzdd01*ztx (kv, j v, 1) +2.0*duedd01*etx (kv, j v 

2  ,l))*totrds 

txxddOl!  =  (-dvzd2*zty (kv,  j y,  1)  -dved2*ety  (ky,  jv,  1) )  *niudO*totrdsj-rriU 
1  u(kv , j v) * (-dvzdd02*zty (kv , j v , 1) -dvedd02*ety (kv , j v, 1) )  *totrds 

txxddlO  =  (2.0*duzdl*ztx  (kv, j  v , 1) +2. 0*ducdl*etx (kv, j v, 1) ) *mudO*tot 

1  rds+rrmu(kv , j v) * (2 . 0*duzddl0*ztx (kv , j v, 1) +2 .0*dueddl0*etx (kv , j v 

2  ,l))*totrds 

txxdd20  =  (-dvzd2*zty (kv , j v , 1) -dved2*ety (kv , jv , 1) ) *mudO*totrds+rrm 


1  u(kv , j v) * (-dvzdd20+zty (kv , j v, 1) -dvedd20*ety (kv , j v, 1) ) *totrds 
txxduOO  =  (-dvzdO*zty(kv, jv, l)+2.0*duzd0*ztx(ky, jv, 1) -dvedO*ety (kv 

1  ,  j v , 1)  +2.0*dued0+etx(kv, j v, l))*muuO*totrds+ (-dvz*zty (kv , jv, 1) +2 

2  .0*duz*ztx(kv, jv, l)-dve*ety(kv, jv, l)+2.0+due*etx(kv, jv, 1)) *mudu 

3  00* totrds+ (2 . 0*duzu0*ztx (kv , j  v , 1 ) -dvzuO*zty (kv , j  v , 1) ) *mudO*totr 

4  ds+rrmu(kv , j v) * (2.0*duzdu00*ztx(kv , j v, 1) -dvzduOO*zty (kv , j v, 1) ) * 

5  totrds 

txxduOl  =  (-dvzdO*zty (kv, j v, 1) +2.0*duzd0*ztx(kv, j v, 1) -dved0*ety (kv 

1  > j v , 1) +2.0*dued0*etx(kv, j v , 1) ) *muul*totrds+ (-dvz*zuy (kv , j v, 1) +2 

2  . 0*duz*ztx(kv, j v, 1) -dve*ety  (kv , jv, 1) +2.0*due*etx(kv , j v, 1) ) *mudu 

3  01*totrds+2 . 0*duzul*zbx (kv , j  v, 1) +mud0*totrds+2 . 0*duzdu01*rrmu (k 

4  v, jv) *ztx(kv, jv, 1) *totrds 

txxdu02  =  (-dvzdO*zty (kv, jv, 1) +2.0*duzd0*ztx(kv, jv, 1)  -dved0*ety (kv 

1  ,  jv,  1)  +2.0*dued0*etx(kv, j v, 1)) *muu2*totrds+(-dvz*zty (kv, jv, 1) +2 

2  .0*duz*ztx(kv, jv, l)-dve*ety (kv, jv, 1) +2.0*due*etx(kv , jv, 1) ) *mudu 

3  02+totrds-dvzu2*zty (kv , j v , 1) *mud0*totrds-dvzdu02*rrmu(kv , j v) *zt 

4  y (kv, jv, 1) *totrds 

txxdulO  =  (2 .0*duzdl*ztx(kv, j v, 1) +2.0*dtiedl*etx(kv,  jv,  1) ) *muu0*tot 
1  rds+2 . 0*duzdul0*rrmu (kv , j  v) *ztx (kv , j  v , 1) *totrds 

txxdull  =  (2.0*duzdl*ztx(kv, jv, l)+2.0*duedl*etx(kv, jv, 1)) *muul*tot 
1  rds 

txxdul2  =  (2.0*duzdl*ztx(kv, j v, 1) +2.0*duedl*etx(kv, jv, 1) ) *muu2*tot 
1  rds 

txxdu20  =  (~dvzd2*zty (kv , j v, 1) -dved2*ety (kv, j v , 1) ) *muuO*totrds-dvz 
1  du20*rrmu (kv , j  v) *  zty (kv , j  y , 1) *totrds 

txxdu21  =  (-dvzd2*zty(kY, jv,l)-dved2*ety(kv, jv, 1) ) *muul*totrds 
txxdu22  =  (-dvzd2*zty (kv, jv, 1) -dved2*ety (kv, jv,l))*muu2*totrds 
txxdvOO  =  (-dvzdO*zty (kv , j  v , 1) +2 . 0*duzd0*ztx (kv , j  v , 1) -dvedO*ety (kv 

1  , j  v , 1) +2 . 0*dued0*etx (kv , j  v , 1) ) *muvO*totrds+ (-dvz*zty (kv , j  v , 1) +2 

2  . 0*duz*ztx (kv , j  v , 1) ~dve*ety  (kv , j  v , 1) +2 . 0*due*etx (kv , j  v , 1) ) *mudv 

3  00*totrds+ (2 .0*duev0*etx(kv, j v, 1) -dvevO*ety (kv , j v, 1) ) *mudO*totr 

4  ds+rrmu (kv , j  v) * (2 . 0*duedv00*etx (kv , j  v , 1) -dvedvOO*ety (kv , j  v , 1) ) * 

5  totrds 

txxdvOl  =  (-dvzdO*zty (kv, jv, 1) +2.0*duzd0*ztx(kv, j v, 1) -dvedO*etv(kv 

1  ,  j v , l)+2.0*dued0*etx(kv, jv, l))*muvl*totrds+(-dvz*zty (kv, jv,l) +2 

2  .0*duz*ztx(kv, jv, 1) -dve*ety (kv, j v, 1) +2.0*due*etx(kv, j v, 1) ) *mudv 

3  01*totrds+2.0*duevl*etx(kv, jv, 1) *mud0*totrds+2.0*duedv01*rrmu(k 

4  v , j  v) *etx (kv , j  v , 1) *totrds 

txxdv02  =  (-dvzdO*zty(kv, jv, l)+2.0*duzd0*ztx(kv, jv, 1) -dved0*ety (kv 

1  i  j  v  j 1)  +2 • 0*dued0*etx (kv , j  v , 1) ) *muv2* totrds+ (-dvz*zty (kv , j  v , 1) +2 

2  . 0*duz*ztx (kv , j v , 1) -dve*ety (kv , j v , 1) +2 .0*due*etx (kv , j v , 1) ) *mudv 

3  02*totrds-dvev2*ety  (kv , j v , 1) *nud0*totrds-dvedv02*rrmu (kv, j v) *et 

4  y(kv, jv,l)*totrds 

txxdvlO  =  (2 . 0*duzdl *  ztx (kv , j  v , 1) +2 . 0*duedl *etx (kv , j  v , 1) ) *muv0*tot 
1  rds+2. 0*duedvl0*rrmu (kv, jv) *etx(kv , jv, 1)  *totrds 

txxdvll  =  (2.0*duzdl*ztx(kv, jv,l)+2.0*duedl*etx(kv, jv, 1) ) *muvl*tot 
1  rds 

txxdvl2  =  (2.0*duzdl+ztx(kv , jv, 1) +2 . 0*duedl*etx(kv, j v, 1) ) *muv2*tot 
1  rds 

txxdv20  =  (-dvzd2*zty  (kv, j v , 1) -dved2*ety (kv, jv, 1) ) *muvO*totrds-dve 
1  dv20*rrmu(kv, jv) *ety(kv, jv, 1) *totrds 
txxdv21  =  (-dvzd2*zty (kv, jv, 1) -dved2*ety (kv, j v , 1) ) *muvl*totrds 
txxdv22  =  (-dvzd2*zty (kv, jv, 1) -dved2*ety (kv, jv, 1)) *muv2*totrds 
txxudOO  =  (-dvz*zty(kv, jv, l)+2.0*duz*ztx(kv, jv, l)-dve*ety (kv, jv,  i) 

1  +2 . 0*due*etx (ky , j v , 1) ) *muudOO*totrds+ (-dvzdO*zty (kv , j  v , 1) +2 . 0*d 

2  uzdO*ztx(kv , jv , 1) -dvedO*ety (kv , jv , 1) +2.0*dued0*etx(kv , j v, 1) )  *mu 

3  uO*totrds+ (2.0*duzu0*ztx(kv , jv, l)-dvzuO*zty (kv, jv, 1) ) *mudO*totr 

4  ds+rrou(kv , j v) + (2 . 0*duzud00*ztx (kv , j v , 1) -dvzudOO*zty (kv , j v , 1) ) * 

5  totrds 


txxudOl  =  (2.0*duzdl*ztx(kv, jv,l)+2.0*duedl*etx(kv, jv, 1)) *muuO*tot 
1  rds+2 . 0*duzud01*rrmu (kv , j  v) *ztx (kv , j  v , 1) *totrds 
txxud02  =  (-dvzd2*zty (kv , j  v , 1) -dved2*ety (kv , j  v , 1) ) *muuO*totrds-dvz 
1  ud02*rrmu(kv, jv) *zty (kv, jv, 1) *totrds 
txxudlO  =  (-dvz*zty (kv, jv,l)+2.0*duz*ztx(kv, jv,l)-dve*ety(kv, jv,l) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muudlO*totrds+ (-dvzdO*zty (kv , j  v , 1) +2 . 0*d 

2  uzdO*ztx (kv , j  y , 1) -dvedO*ety (kv , j  v , 1) +2 . 0*duedO*etx (kv , j  v , 1) ) *mu 

3  ul*totrds+2 . 0*duzul*ztx (kv , j  v , 1) *mud0*totrds+2 . 0*duzudlO*rrmu (k 

4  v ,  j  v)  *z  tx  (kv ,  j  v ,  1)  * totrds 

txxudll  =  (2 .0*duzdl*ztx (kv , j v , 1) +2 . 0*duedl*etx (kv , j v , 1) ) *muul*tot 
1  rds 

txxudl2  =  (-dvzd2*zty (kv, jv,l)-dved2*ety(kv, jv, 1) ) *muul*totrds 
txxud20  =  (-dvz*zty(kv, jv,l)+2.0*duz*ztx(kv, jv,l)-dve+ety (kv, jv, 1) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muud20* totrds+ (-dvzdO+zty (kv , j  v , 1) +2 . 0*d 

2  uzdO+ztx (kv , j  v , 1) -dvedO*ety (kv , j  v , 1) +2 . 0*duedO*etx (kv , j v , 1) ) *mu 

3  u2*totrds-dvzu2*zty(kv, jv, 1) *mud0*totrds-dvzud20*rrmu(kv, jv) *zt 

4  y(kv, jv,l)*totrds 

txxud21  =  (2 . 0*duzdl*ztx (kv , j  v , 1) +2 . 0*duedl*etx (kv , j  v , 1) ) *muu2*tot 
1  rds 

txxud22  =  (-dvzd2*zty (kv, jv, l)-dved2*ety (kv, jv,l))*muu2*totrds 
txxvdCX)  =  (-dvz*zty (kv , j  v , 1 ) +2 . 0*duz*ztx (kv , j  v , 1 ) -dvevety (kv , j  v , 1) 

1  +2 .0*due*etx (kv , j v , 1) ) *muvdOO*totrds+ (-dvzdO*zty (kv , j v, 1) +2 . 0*d 

2  uzdO*ztx (kv , j  v , 1) -dvedO*ety (kv , j  v , 1) +2 . 0*duedO*etx (kv , j v , 1) ) *mu 

3  v0+totrds+(2.0*duev0*etx(kv, jv,l)-dvevO*ety (kv, jv, 1) ) *mudO*totr 

4  ds+rrmu (kv , j  v) * (2 . C*duevdOO*etx (kv , j  v , 1) -dvevdOO*ety (kv , j  v , 1) ) * 

5  totrds 

txxvdOl  =  (2 .0*duzdl*ztx (kv , j  v , 1) +2 . 0*duedl*etx (kv , j  v , 1) ) *muvO*tot 
1  rds+2 . 0*duevd01*rrmu (kv , j  v) *etx (kv , j  v , 1) *totrds 

txxvd02  =  (-dvzd2*zty(kv, jv,l)-dved2*ety(kv, jv, 1)) *muvO*totrds-dve 
1  vd02*rrmu (kv , j  v) *ety (kv , j  v , 1) *totrds 
txxvdlO  =  (-dvz*zty (kv , j  v , 1) +2 . 0*duz*ztx (kv , j v , 1) -dve*ety (kv , j  v , 1) 

1  +2. 0*due*etx (kv, jv,l)) *muvdlO*totrds+ (-dvzdO+zty (kv, jv, 1) +2. 0*d 

2  uzdO+ztx (kv , j  v , 1) -dvedO+ety (kv , j  v , 1 ) +2 . 0*duedO*etx (kv , j  v , 1) ) *mu 

3  vl*totrds+2.0*duevl*etx(kv, jv, 1) *mud0*t.otrds+2.0*duevdl0*rrmu(k 

4  v, jv) *etx(kv, j v , 1) *totrds 

txxvdll  =  (2.0*duzdl*ztx(kv, jv, l)+2.0*duedl*etx(kv, jv, 1)) *muvl*tot 
1  rds 

txxvdl2  =  (-dvzd2*zty(kv, jv, 1) -dved2*ety (kv, jv,l))*ouvl*totrds 
txxvd20  =  (~dvz*zty(kv, jv,l)+2.0*duz*ztx(kv, jv,l)-dve*ety(kv, jv,l) 

1  +2.0*due*etx(kv, jv,l) j*muvd20*totrds+(-dvzd0*zty(kv, jv, l)+2.0*d 

2  uzdO*ztx(kv, jv, l)-dvedO*ety(kv, jv,l)+2.0*dued0*etx(kv, jv,l)) *mu 

3  v2+totrds-dvev2*ety(kv, jv, 1) *mud0*totrds-dvevd20*rrmu(kv, jv) *et 

4  y(kv, jv,l)*totrds 

txxvd21  =  (2 . 0+duzdl *ztx (kv , j  v , 1) +2 . 0*duedl *etx (kv , j  v , 1) ) *muv2*tot 
1  rds 

txxvd22  =  (-dvzd2*zty (kv , jv, 1) -dved2*ety (kv, jv,l))*muv2*totrds 
txxuuOO  =  (-dvz*zty (kv, j v, 1) +2.0*duz*ztx(kv, jv, 1) -dve*ety (kv, j v, 1) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muuuOO* totrds+2* (2 . 0*duzuO*ztx (kv , j  v , 1) - 

2  dvzuO* zty (kv , j  v , 1 ) ) *muuO* totrds 

txxuuOl  =  (-dvz*zty (kv, jv, 1) +2.0*duz*ztx(kv, jv, 1) -dve*ety (kv, jv,l) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muuu01 *totrds+ (2 . 0*duzuO*ztx (kv , j  v , 1) -dv 

2  zuO*zty(kv, jv, 1)) *muul*totrds+2.0*duzul*ztx(kv, jv, 1) *muuO*totrd 

3  3 

txxuu02  =  (-dvz*zty (kv, j v, 1) +2.0*duz*ztx(kv, jv, 1) -dve*ety (kv, jv, 1) 

1  +2.0+due*etx(kv , j v, 1) ) *muuu02+totrds+ (2.0*duzu0*ztx(kv, jv, 1) -dv 

2  zuO*zty (kv , j v , 1) ) *muu2*totrds-dvzu2*zty (kv , j  v , 1) *muuO* totrds 
txxuulO  =  (-dvz*zty(kv, jv, l)+2.0*duz*ztx(kv, jv, 1) -dve*ety (kv, jv, 1) 

1  +2.0*due*etx(kv , jv, 1) ) *muuulO*totrds+ (2.0*duzu0*ztx(kv, jv, 1) -dv 

2  zuO*zty(kv, jv, 1)) *muul*totrds+2.0+duzul*ztx(kv, jv, 1) *muuO*totrd 


txxuull  =  (-dvz+zty (kv, jv,l)+2.0*duz*ztx(kv, j v, 1) -dve+ety (kv, jv, 1) 

1  +2.0*due+etx(kv, jv, 1)) +muuull*totrds+4.0*duzul*ztx(kv, jv, 1) *muu 

2  1+totrds 

txxuul2  =  (-dvz+zty (kv,jv, 1) +2.0*duz+ztx(kv, jv, 1) -dve+ety (kv, j v, 1) 

1  +2. O+due+etx (kv, jv, 1)) *muuul2*totrds+2.0+duzul*ztx(kv , jv, 1) *muu 

2  2+totrds-dvzu2+zty (kv, j v, 1) +muul+totrds 

txxuu20  =  (-dvz+zty (kv , j v , 1) +2 . 0*duz*ztx (kv , j v , 1) -dve+ety (kv , j  v , 1) 

1  +2. O+due+etx (kv , jv, 1)) *muuu20*totrds+ (2.0+duzu0*ztx(kv, jv, 1) -dv 

2  zuO+zty (kv , j  v , 1) ) *muu2*totrds-dvzu2*zty (kv , j  v , 1) *muuO*totrds 
txxuu21  =  (-dvz+zty (kv, jv, l)+2.0*duz+ztx(kv, jv, 1) -dve+ety (kv, jv, 1) 

1  +2. O+due+etx (kv, jv, 1) ) +muuu21*totrds+2.0*duzul*ztx(kv, jv, 1) *muu 

2  2*totrds-dvzu2+zty (kv, j v, 1) *muul* totrds 

txxuu22  =  (-dvz+zty (kv , j  v , 1) +2 . O+duz*  ztx (kv , j  v , 1) -dve+ety (kv , j  v , 1) 

1  +2 . O+due+etx (kv , j  v , 1) ) *muuu22* totrds-2*dvzu2+zty (kv , j  v , 1)  *muu2* 

2  totrds 

txxuvOO  =  (2.0*duzu0*ztx(kv , jv, 1) -dvzuO+zty (kv, jv, 1)) *muvO*totrds+ 

1  (-dvz+zty (kv , j  v , 1) +2 . O+duz+ztx (kv , j  v , 1) -dve+ety (kv , j  v , 1) +2 . O+du 

2  e+etx (kv , j v , 1) ) *muuvOO*totrds+ (2 . O+duevO+etx (kv , j  v , 1)  -dvevO+ety 

3  (kv, jv, 1)) *muuO+totrds 

txxuvOl  =  (2 . O+duzuO+ztx (kv , j  v , 1) -dvzuO*zty (kv , j  v , 1) ) *muvl *totrds+ 

1  (-dvz*zty (kv, jv, l)+2.0*duz  "ztx(kv, jv, l)-dve*ety (kv, jv, l)+2.0*du 

2  e*etx(kv, jv, 1)) *muuv01*totrds+2.0*duevl*etx(kv, jv, 1) *muuO*totrd 

3  s 

txxuv02  =  (2.0*duzu0*ztx(kv, jv, l)-dvzuO*zty(kv, jv, 1))  *muv2*totrds+ 

1  (-dvz*zty (kv, jv,l)+2.0*duz*ztx(kv, jv,l)-dve*ety(kv, jv, l)+2.0*du 

2  e*etx (kv , j v , 1) ) *muuv02*totrds-dvev2*ety (kv , j  v , 1) *muuO*totrds 
txxuvlO  =  2 . 0+duzul *ztx (kv , j  v , 1) *muvO*totrds+ (-dvz*zty (kv , j  v , 1) +2 . 

1  0*duz*ztx(kv, jv, 1) -dve+ety  (kv, jv, l)+2.0*due+etx(kv, jv,l)) *muuvl 

2  0*totrds+(2.0*duev0*etx(kv, jv,l)-dvevO*ety(kv, jv, 1)) *muul+totrd 

3  s 

txxuvll  =  2.0*duzul*ztx(kv, jv,l) *muvl*totrds+(-dvz*zty (kv, jv, l)+2. 

1  0*duz*ztx (kv , j v , 1) -dve+ety (kv , j v , 1) +2 . 0+due+etx (kv , j  v , 1) ) *muuvl 

2  1 *totrds+2 . 0+duevl *etx (kv , j  v , 1) *muul *totrds 

txxuvl2  =  2.0*duzul*ztx(kv, jv, 1) +muv2*totrds+ (-dvz+zty (kv, jv, 1) +2. 

1  0*duz*ztx(kv, jv, 1) -dve+ety (kv, jv,l) +2. 0+due*etx(kv, jv,l))*muuvl 

2  2*totrds-dvev2*ety (kv, jv, 1) *muul+totrds 

txxuv20  =  -dvzu2*zty (kv , j  v , 1) +muvO*totrds+ (-dvz+zty (kv , j  v , 1) +2 . 0+d 

1  uz*ztx(kv, jv,l) -dve+ety (kv,jv,l) +2. 0*due*etx(kv,jv,i))*muuv20*t 

2  otrds+ (2 . 0+duevO+etx (kv , j  v , 1) -dvevO*  ety (kv , j  v , 1)  )  *muu2*totrds 
txxuv21  =  -dvzu2*zty (kv, jv,l) *muvl*totrds+ (-dvz+zty (kv, jv, l)+2.0*d 

1  uz*ztx(kv, jv, 1) -dve+ety (kv, jv, 1) +2 . O+due+etx (kv, jv, 1) ) *muuv21*t 

2  otrds+2. O+duevl *etx(kv, jv,l) *muu2+totrds 

txxuv22  =  -dvzu2*zty (kv , j  v , 1) +muv2+totrds  +  (-dvz+zty (kv , j  v , 1) +2 . 0+d 

1  uz+ztx (kv , j  v , 1) -dve+ety (kv , j v , 1) +2 . O+due+etx (kv , j  v , 1) ) +muuv22*t 

2  otrds-dvev2*ety (kv, jv, 1) *muu2*totrds 

txxvuOO  =  (-dvz+zty (kv, jv,l) +2. 0+duz+ztx(kv, j v,l) -dve+ety (kv, jv,l) 

1  +2. O+due+etx (kv, jv, l))+muvu00*totrds+(2.0*duzu0*ztx(kv, jv, l)-dv 

2  zuO+zty (kv , j v , 1) ) *muvO+totrds+ (2 . O+duevO+etx (kv , j v , 1) -dvevO+ety 

3  (kv, jv,l))+muuO*totrds 

txxvuOl  =  (-dYz*zty(kv, jv, l)+2.0+duz*ztx(kv, j v, 1) -dve+ety (kv, jv, 1) 

1  +2 . O+due+etx (kv , j  v , 1) ) *muvu01 *totrds+2 . 0+duzul+ztx (kv , j  v , 1) *muv 

2  0*totrds+(2.0*duev0*etx(kv, jv, 1) -dvevO+ety (kv, jv, 1)) *muul*totrd 

3  s 

txxvu02  =  (-dvz+zty (W,  j v,  1)  +2.0*duz*ztx(kv,  jv,  1)  -dve+ety  (kv,  jv,  1) 

1  +2. O+due+etx (kv, jv, 1)) *muvu02*totrds-dvzu2+zty (kv, jv, 1) *muvO*to 

2  trds+ (2 . O+duevO+etx (kv , j  v , 1) -dvevO+ety (kv , j v , 1) ) *muu2* totrds 
txxvulO  =  (-dvz+zty (kv, jv, 1) +2. O+duz+ztx (kv, jv, 1) -dve+ety (kv, jv,l) 

1  +2. O+due+etx (kv. jv, 1) ) *muvu10+ totrds* (2.0*duzu0+ztx (kv, jv, 1) -dv 


2  zuO*zty (kv , j  v , 1) ) *muvl*totrds+2 . 0*duevl*etx (kv , j v , 1) *muuO*totrd 

3  s 

txxYull  =  (-dvz*zty (kv, jv,l)+2.0*duz*ztx(kv, jv,l)-dve*ety (kv, jv,l) 

1  +2.0*due*etx(kv, jv, 1) ) *muvull*totrds+2.0*duzul*ztx(kv , jv, 1) *muv 

2  l*totrds+2.0*duevl*etx(kv, j v, l)*muul* totrds 

txxvul2  =  (-dvz*zty (kv , j  v , 1) +2 . 0*duz*ztx (kv , j  v , 1) -dve*ety (kv ,  j  v ,  1) 

1  +2 . 0*due*etx (kv , j v , 1) ) *muYul2*totrds-dvzu2*zty (kv ,  j  v, 1) *muvl*to 

2  trds+2.0*duevl*etx(kv, jv, 1) *muu2*totrds 

txxvu20  =  (-dvz*zty (kv , j  v , 1) +2 .0*duz*ztx (kv , j v , 1) -dve*ety (kv , j  v , 1) 

1  +2. 0*due*etx (kv, j v, 1) ) *muvu20*totrds+ (2 .0*duzu0*ztx(kv , j v , 1) -dv 

2  zuO*zty (kv , j  v , 1) ) *muv2*totrds-dvev2*ety (kv , j  v , 1) *muuO*totrds 
txxvu21  =  (-dvz*zty (kv , j  v , 1) +2 . 0*duz*ztx (kv , j  v , 1 ) -dve*ety (kv , j  v , 1) 

1  +2.0*due*etx(kv, jv,l))*muvu21*totrds+2.0*duzul*ztx(kv, jv,l)*muv 

2  2*totrds-dvev2*ety(kv, jv, 1) *muul*totrds 

txxvu22  =  (-dvz*zty (kv , j v , 1) +2 . G*duz*ztx (kv , j v , 1) -dve*ety (kv , j v , 1) 

1  +2 . 0*due*etx (kv , j v , 1) ) *muvu22*totrds-dvzu2*zty (kv , j v , 1) *muv2*to 

2  trds-dvev2*ety (kv, jv, 1) *muu2*totrds 

txxvvOO  =  (-dvz*zty (kv , j  v , 1) +2 . 0*duz*  ztx (kv , j v , 1) -dve*ety (kv , j  v , 1) 

1  -r2 . 0+due*etx  (kv ,  j  v ,  1)  )  *muwOO*totrds+2*  (2 . 0*duev0*etx  (kv ,  j  v ,  1)  - 

2  dvevO*ety (kv , j  v , 1) ) *muvO* totrds 

txxvvOl  =  (-dvz*zty (kv , j  v , 1) +2 . O+duz *ztx (kv , j  v , 1) -dve*ety (kv , j  v , 1) 

1  +2 . 0*due*etx  (kv ,  j  v ,  1)  )  *ouw01*totrds+  (2 . 0*duevO*etx  (kv ,  j  v ,  1)  -dv 

2  evO*ety (kv, jv, l))*muvl*totrds+2.0*duevl*etx(kv, jv, 1) *muvO*totrd 

3  s 

txxvv02  =  (-dvz*zty (kv , j  v , 1) +2 . 0*duz*ztx (kv , j  v , 1) -dve*ety (kv , j  v , 1) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muvv02*totrds+ (2 . 0*duevO*etx (kv , j  v , 1) -dv 

2  evO*ety (kv , j v , 1) ) *muv2*totrds-dvev2*ety (kv, j v , 1) *muvO*totrds 
txxwlO  =  (-dvz*zty  (kv ,  j  v ,  1)  +2 . 0*duz*ztx  (kv ,  j  v ,  1)  -dve*ety  (kv ,  j  v ,  1) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muvvlO*totrds+ (2 . 0*duevO*etx (kv , j  v , 1) -dv 

2  evO+ety (kv , j v , 1) ) *muvl*totrds+2.0+duevl*etx(kv , jv , 1) +muvO*totrd 

3  s 

txxvvll  =  (-dvz*zty(kv, jv,l)+2.0*duz*ztx(kv, jv,l)-dve*ety(kv, jv,l) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muvvll* totrds+4 . 0*duevl *etx (kv , j  v , 1) *muv 

2  1* totrds 

txxvvl2  =  (~dvz*zt y (kv , j  v , 1) +2 . 0*duz*ztx (kv , j  v , 1) -dve*ety (kv , j  v , 1) 

1  +2 . 0*due*etx (kv , j v , 1) ) *muvvl2*totrds+2 .0*duevl*etx (kv , j v , 1) *muv 

2  2*totrds-dvev2*ety (kv , j v , 1) *ouvl*totrds 

txxvv20  =  (-dvz*zty (kv , j v , 1) +2 . 0*duz*ztx (kv , j v , 1) -dve*ety (kv , j v , 1) 

1  +2 . 0*due*etx (kv , j v , 1) ) *muvv20*totrds+ (2 .0+duevO*etx (kv , j  v , 1) -dv 

2  evO*ety (kv , j  v , 1) ) *muv2*totrds-dvev2*ety (kv , j  v , 1) *muvO*totrds 
txxw21  =  (-dvz*zty(kv,  jv,l)+2.0*duz*ztx(kv,  jv,l)-dve*ety(kv,  jv,l) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *ouvv21 *totrds+2 . 0*duevl *etx (kv , j  v , 1) +mv v 

2  2*totrds-dvev2*ety (kv, j v, 1) *ouvl*totrds 

txxw22  =  (-dvz*  zty  (kv  ,jv,l)+2.0*duz*ztx  (kv ,  j  v ,  1)  -dve+ety  (kv ,  j  v ,  1) 

1  +2 . 0*due*etx (kv , j  v , 1) ) *muvv22*totrds-2*dvev2*ety (kv , j  v , 1) #muv2* 

2  totrds 

mu* (zty*duz+ety*due+ztx*dvz+etx*dve)  ; 

txy  =  rrmu (kv , j  v) * (duz  *  zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v 
1  ,l)+dve*etx(kv, jv,l)) 

txydO  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j v , 1) +due*ety (kv , j v , 1) +dve*et 

1  x(kv,jv,l)) *mudO+rrmu (kv , j  v) * (duzdO*zty (kv , j  v , 1) +dvzdO*ztx (kv , j 

2  v , 1) +duedO*ety (kv , j v , 1) +dvedO*etx (kv , j v , 1) ) 

txydl  =  rrmu(kv, jv)*(duzdl*zty(kv, jv,l)+duedl*ety(kv, jv,l)) 
txyd2  =  rrmu(kv, jv)*(dvzd2*ztx(kv, jv,l)+dved2*etx(kv, jv, 1)) 
txyuO  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j v , 1) +due*ety (kv , j v , 1) +dve*et 

1  x(kv, jv, l))*auuO+rrmu(kv, jv) * (duzuO*zty (kv, jv, l)+dvzuO*ztx(kv, j 

2  v,l)) 


txyul  --  (duz*zty (kv, j v, 1) +dvz*ztx(kv, jv, l)+due*ety (kv, jv, 1) +dve*et 
1  x(kv , jv , 1)) *muul+duzul*rrmu(kv, j  v) *zty (kv , j v, 1) 
txyu2  =  (duz*zty (kv, jv, 1) +dvz*ztx(kv, jv, 1) +due*ety (kv, jv, l)+dve*et 
1  x (ky , j  v , 1) ) *muu2+dvzu2*rrmu (kv , j  v) *ztx (kv , j  v , 1 ) 

txyvO  =  (duz*zty (kv, j y , 1) +dvz*ztx (kv , j v , 1) +due*ety (kv , j v , 1) +dve*et 

1  x (kv , j  v , 1) ) *muvO+rrmu (kv , j  v) * (duevO*ety (kv , j  v , 1) +dvevO*etx (kv , j 

2  v,l)) 

txyvl  =  (duz*zty (kv, jv, 1) +dvz*ztx(kv, jv, l)+due*ety (kv, j v, 1) +dve*et 
1  x  (kv ,  j  v ,  1)  )  *tnuvl+duevl  *rrmu  (kv ,  j  v)  *ety  (kv ,  j  v ,  1) 

txyv2  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j v , 1) +due*ety (kv , j v , 1) +dve*et 
1  x  (kv ,  j  v ,  1)  )  *muv2-i  dvev2*rrmu  (kv ,  j  v)  *etx  (kv ,  j  v ,  1) 

txyddOO  =  (duz*zty (kv , j  v , 1) +dvz*  ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx (kv , j  v , 1) ) *muddOO+2* (duzdO*zty (kv , j  v , 1) +dvzdO*ztx (kv , j  v , 1) +d 

2  uedO*ety (kv , j  v, 1) +dvedO*etx (kv , j  v , 1) ) *mudO+rrmu (kv , j  v) * (duzddOO 

3  *zty (kv , j  v , 1 ) +dv  zddOO*  ztx (kv , j  v , 1) +dueddOO*ety (kv , j  v , 1 ) +dveddOO 

4  *etx(kv, jv,l)) 

txyddOl  =  (duzdl*zty(kv, j v, 1) +duedl*ety (kv, jv, l))*mudO+rrmu(kv, jv) 
1  * (duzddOl *zty (kv , j  v , 1) +duedd01 *ety (kv , j  v , 1)  ) 

txydd02  =  (dvzd2*ztx(kv, jY,l)+dved2*etx(kv, jv, 1)) *mudO+rrmu(kv, jv) 
1  * (dvzdd02*ztx (kv , j v , 1) +dvedd02*etx (kv , j v , 1) ) 

txyddlO  =  (duzdl*zty (kv, jv , 1) +duedl*ety (kv, j v, 1)) *mudO+rrmu(kv, jv) 
1  * (duzddlO*zty (kv , j  v , 1) +dueddlO*ety (kv , j v , 1)  ) 

txydd20  =  (dvzd2*z  tx (kv , j  v , 1) +dved2*etx (kv , j  v , 1) ) *mudO+rrmu (kv , j v) 
1  *(dvzdd20*ztx(kv, jv, l)+dvedd20*etx(kv, jv, 1)) 
txyddOO  =  (duz*zty (kv , j v , 1) +dvz%ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx (kv , j  v , 1 ) ) *muddOO+2* (duzdO*zty (kv , j  v , 1) +dvzdO*ztx (kv , j  v , 1) +d 

2  uedO*ety (kv , j  y , 1) +dvedO*etx (kv , j  v , 1) ) *mudO+rrmu (kv , j  v) * (duzddOO 

3  *zty (kv , j  v , 1) +dvzddOO*ztx (kv , j v , 1) +dueddOO*ety (kv , j  v , 1) +dveddOO 

4  *etx(kv, jv,l)) 

txyddOl  =  (duzdl *zty (kv , j  v , 1) +duedl *ety (kv , j  v , 1) ) +mudO+rrmu (kv , j  v) 
1  * (duzddOl *zty (kv , j v , 1 ) +duedd01 *ety(kv,jv,l)) 

txydd02  =  (dvzd2*ztx (kv , j v , 1) +dved2*etx (kv , j v , 1) ) *mudO+rrmu (kv , j v) 
1  * (dvzdd02*ztx (kv , j  v , 1) +dvedd02*etx (kv , j v , 1)  ) 

txyddlO  =  (duzdl*zty (kv , j v , 1) +duedl*ety (kv, j v, 1) ) *mudO+rrmu (kv , j v) 
1  * (duzddlO*zty (kv , j  v , 1) +dueddlO*ety (kv , j v , 1)  ) 

txydd20  =  (dvzd2*ztx (kv , j v , 1) +dved2*etx (kv , j  v , 1) ) *mudO+rrmu (kv , j v) 
1  * (dvzdd20*ztx (kv , j  v , 1) +dvedd20*e  tx (kv , j  v , 1 )  ) 

txyduOO  =  (duzdO*zty (kv , j v , 1) +dvzdO*ztx (kv , j v , 1) +duedO*ety (kv , j  v , 1 

1  ) +dvedO*etx(kv, jv, 1)) *muuO+ (duz*zty(kv, jv, 1) +dvz*ztx(kv, jv, l)+d 

2  ue*ety (kv , j  v , 1) +dve*etx (kv , j v , 1) ) *muduOO+ (duzuO*zty (kv , j v , 1) +dv 

3  zuO*ztx (kv , j  v , 1) ) *mudO+rrmu (kv , j  v) * (duzduOO*zty (kv , j v , 1) +dvzduO 

4  0*ztx(kv, jv,l)) 

txyduOl  =  (duzdO*zty (kv , j  v , 1) +dvzdO*ztx (kv , j  v , 1) +duedO*ety (kv , j  v , 1 

1  ) +dvedO*etx (kv , j  v , 1) ) *muul+ (duz+zty (kv , j v , 1) +dvz*ztx (kv , j  v , 1) +d 

2  ue*ety (kv , j v, 1) f dve*etx (kv , j v , 1) ) *mudu01+duzul*zty (kv , j v , 1) *mud 

3  0+duzdu01*rrmu(kv, jv) *zty (kv , jv, 1) 

txydu02  =  (duzdO*  zty (kv,jv,l)+dvzdO*ztx(kv,jv,l) +duedO*ety (kv , j  v , 1 

1  )+dvedO*etx(kv, jv,l))*muu2+(duz*zty(kv, jv,l)+dvz*ztx(kv, jv,l)+d 

2  ue*ety(kv, jv,l) +dve*etx(kv, jv,l)) *mudu02+dvzu2*ztx(kv, jv,l) *mud 

3  0+dvzdu02*rrmu (kv , j  v) *ztx (kv , j  v , 1) 

txydulO  =  (duzdl *zty (kv , j v , 1) +duedl*ety (kv , j v , 1) ) *muuO+duzdulO*rrm 
1  u(kv, jv)*zty(kv, jv,l) 

fcxydull  =  (duzdl*zty(kv, jv, 1) +duedl*ety (kv, jv, 1)) *muul 
txydul2  =  (duzdl*zty(kv, jv, 1) +duedl*ety(kv, jv, 1) ) *muu2 
txydu20  =  (dvzd2*  ztx (kv , j  v , 1) +dved2*etx (kv , j  v , 1) ) *muu0+dvzdu20*rrm 
1  u(kv, jv) *ztx(kv, jv, 1) 

txydu21  =  (dvzd2*ztx(kv, jv, 1) +dved2*etx(kv, jv, 1)) *muul 
txydu22  =  (dvzd2*ztx(kv, jv, 1) +dved2*etx(kv, jv,l))*muu2 
txydvOO  =  (duzdO*zty (kv , j v , 1) +dvzdO*ztx(kv , jv , 1) +duedO*ety (kv , j v , 1 
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1  )  +dvedO*etx  (kv ,  j  v ,  1)  )  *muvO+  (duz*zty  (kv ,  j  v ,  1)  +dvz*ztx  (kv ,  j  v ,  1)  +d 

2  ue*ety (kv , jv, 1) +dve*etx(kv, jv, 1)) *mudvOO+(duevO*ety(kv , jv, 1) +dv 

3  evO*etx (kv , j  v , 1) ) *mudO+rrmu (kv , j v) * (duedvOO+ety (kv , j v , 1) +dvedvO 

4  0*etx(kv, jv,l)) 

txydvOl  =  (duzdO*  zty (kv , j  v , 1) +dvzdO*  ztx (kv , j  v , 1) +duedO*ety (kv , j  v , 1 

1  )  +dvedO*etx (kv ,  j  v ,  1)  ) *muvl+ (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j v , 1) +d 

2  ue*ety (kv ,  j  y  ,  1) +dve*etx (kv , j v , 1) ) *mudv01+duevl*ety (kv , j v , 1) *mud 

3  0J-duedv01*rrnm(kv,  jv)  *ety(kY, jY,l) 

txydv02  =  (duzdO*zty (kv, jv, 1) +dvzdO*ztx(kv , jv,l) +duedO*ety(kv ,  jv,l 

1  ) +dvedO*etx (kv , j  v , 1) ) *muv2+ (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j v , 1) +d 

2  ue*ety (kv , j  v , 1) +dve*etx (kv , j  v , 1) ) *mudv02+dvev2*etx (kv , j v , 1) *mud 

3  0+dvedv02*rrmu(kv, jv) *etx(kv, jv, 1) 

txydvlO  =  (duzdl*zty (kv , j  v , 1) +duedl*ety (kv , j  v , 1) ) *muvO+duedvlO*rrm 
1  u(kv, jv)*ety(kv, jv,l) 

txyJvll  =  (duzdl*zty(kv, jv,l)+duedJ*ety(kv, jv,l))*muvl 
txydvl2  =  (duzdl*zty (kv, jv,l)+duedl*ety(kv, jv,l))*muv2 
txydv20  =  (dvzd2*ztx (kv , j  v , 1) +dved2*etx (kv , j v , 1) ) *muv0+dvedv20*rrm 
1  u(kv, jv)*etx(kv, jv,l) 

txydv21  =  (dvzd2*ztx(kv, jv,l)+dved2*etx(kv, jv,l))*muvl 
txydv22  =  (dvzd2*ztx(kv, jv,l)+dved2*etx(kv, jv,l))*muv2 
txyudOO  =  (duz*zty(kv,  jv,l)+dvz*ztx(kv,  jv,l)+due*ety(kv,  jv,l)+dve«- 

1  etx (kv , j  v , 1) ) *muudOO+ (duzdO* zty (kv , j  v , 1) +dvzdO*ztx (kv , j  v , 1) +due 

2  dO*ety (kv , j  v , 1) +dvedO*etx (kv , j  v , 1 ) ) *muuO+ (duzuO*zty (kv , j  v , 1) +dv 

3  zuO*  ztx (kv , j  v , 1 ) ) *mudO+rnnu (kY , j  v) * (duzudOO*  zty (kv , j  v , 1) +dvzudO 

4  0*ztx(kv, jv,l)) 

txyudOl  =  (duzdl*zty (kv , j v , 1) +duedl*ety (kv , j v , 1) ) *muu0+duzud01*rrm 
1  u(kv , jv) *zty (kv, jv , 1) 

txyud02  =  (dvzd2*ztx(kv, j v , 1) +dved2*etx (kv , j v , 1) ) *muu0+dvzud02*rrm 
1  u(kv, jv)*ztx(kv, jv,l) 

txyudlO  =  (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx (kv , j  v , 1) ) *muudlO+ (duzdO* zty (kv , j  v , 1) +dvzdO*  ztx (kv , j v , 1) +due 

2  dO*ety (kv , j v , 1) +dvedO*etx (kv , j v , 1) ) *auul+duzul*zty (kv , j v , 1) *mud 

3  0+duzudlO*rrmu (kv , j v) *zty (kv , j v , 1) 

txyudll  =  (duzdl*zty(kv, jv,l)+duedl*ety(kv, jv,l))*muul 
txyudl2  =  (dvzd2*ztx(kv, jv,l)+dved2*etx(kv, jv,l))*muul 
txyud20  =  (duz*zty(kv,  jv,l)+dvz*ztx(kv,  jv,  1) -t-due+ety  (kv,  jv,l)+dve* 

1  etx (kv , j  v , 1) ) *muud20+ (duzdO*zty (kv , j  v , 1) +dvzdO*ztx (kv , j  v , 1) +due 

2  dO*ety (kv , j  v , 1) +dvedO*etx (kv , j v , 1) ) *muu2+dvzu2*ztx (kv , j v , 1) *mud 

3  0+dvzud20*rrmu (kv , j  v) *ztx (kv , j v , 1) 

txyud21  =  (duzdl*zty(kv, jv,l)+duedl*ety(kv, jv,l))*muu2 
txyud22  =  (dvzd2*ztx(kv, jv,l)+dved2*etx(kv, jv,l))*muu2 
txyvdOO  =  (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j v , 1) +dve* 

1  etx (kv , jv , 1) ) *muvdOO+ (duzdO*zty (kv , j v , 1) +dvzdO*ztx(kv , jv , 1) +due 

2  dO*ety (kv , j  v , 1) +dvedO*etx (kv , j  v , 1) ) *muvO+ (duevO*ety (kv , j  v , 1 ) +dv 

3  evO*etx (kv , j  v , 1) ) *mudO+rrmu (kv , j  v) * (duevdOO*ety (kv , j  v , 1) +dvevdO 

4  0*etx(kv, jv,l)) 

txyvdOl  =  (duzdl *  zty (kv , j  v , 1) +duedl *ety(kv,jv,l)) +muv0+duevd01 +rrm 
1  u(kv , jv) *ety (kv , jv , 1) 

txyvd02  =  (dvzd2*ztx(kv, jv,l) +dved2*etx(kv, jv, 1)) *muv0+dvevd02+rrm 
1  u(kv, jv)*etx(kv, jv,l) 

txyvdlO  =  (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx (kv , j v , 1) ) *muvdlO+ (duzdO* zty (kv , j v , 1) +dvzdO*ztx(kv , j v , 1) +due 

2  dO*ety (kv , j  v , 1) +dvedO*etx (kv , j v , 1) ) +muvl +duevl*ety (kv , j v , 1) *mud 

3  0+duevdl0*rrmu(kv, jv) *ety (kv, jv, 1) 

txyvdll  =  (duzdl*zty (kv, jv, 1) +duedl*ety (kv, jv,l))*muvl 
txyvdl2  =  (dvzd2*ztx(kv, jv, 1) +dved2*etx(kv, jv,l))*muvl 
txyvd20  =  (duz*zty  (kv ,  j  v ,  1)  +dvz*ztx  (kv ,  j  v ,  1)  +due*ety  (kv ,  j  y  ,  1)  -t-dve* 

1  etx(kv , jv, 1) ) *muvd20+ (duzdO*zty (kv, jv, 1) +dvzdO*ztx(kv, jv, 1) +due 

2  dO*ety (kv, j v, 1) +dvedO*etx(kv, jv, 1)) *muv2+dvev2*etx(kv, jv,l) *mud 


3  0+dvevd20*rrmu(kv, jv) *etx(kv, jv,l) 
txyvd21  =  (duzdl+zty (kv, jY,l)+duedl*ety(kv, jv,l))*muv2 
txyvd22  =  (dvzd2*ztx(kv, j v, 1) +dved2*etx(kv, jv,l))*muv2 
txyuuOO  -  (duz*zty (kv, jv, l)+dvz*ztx(kv, jv, l)+due*ety(kv, jv, l)+dve* 

1  etx (kv , j v , 1 ) ) *muuuOO+2* (duzuO*zty (kv ,  j  v ,  1) +dvzuO*  ztx (kv , j  v , 1) ) * 

2  muuO 

txyuuOl  =  (duz*zty (kv, j v , 1) +dvz*ztx(kv , j v , 1) +due*ety (kv , jv, l)+dve* 

1  etx  (kv ,  j  v ,  1)  )  *nmuuOi+  (duzuO*zty  (kv ,  j  v ,  1) +dvzuO+ztx  (kv ,  j  v ,  1)  )  *mu 

2  ul+duzul*zty (kv , jv, l)*muuO 

txyuu02  =  (duz*zty(ky, jv,l)+dvz*ztx(kv, jv, l)+due*ety (kv, jv, l)+dve* 

1  etx(kv , jv, 1) ) *muuu02+(duzu0*zty (kv, jv, 1) +dvzuO*ztx(kv , jv, 1)) *mu 

2  u2+dvzu2*ztx(kv, jv , 1) *muuO 

txyuulO  =  (duz*zty(kv, jv,l)+dvz+ztx(kv, jv, 1) +due*ety (kv, jv,i)+dve* 

1  etx (kv , j  v , 1) ) *muuulO+ (duzuO*  zty (kv , j  v , 1) +dvzuO*ztx (kv , j  v , 1) ) *mu 

2  ul+duzul*zty (kv, j v, 1) *muuO 

txyuull  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j v , 1) +dve* 
1  etx (kv , j v , 1) ) *muuull+2*duzul*zty (kv , j v , 1) *muul 

txyuul2  =  (duz*zty (kv , j v, 1) +dvz*ztx (kv , j  v, 1) +due*ety (kv , j v , 1) +dve* 

1  etx (kv , j  v , 1) ) *muuul2+duzul*zty (kv , j  v , 1) *muu2+dvzu2*ztx (kv , j  y , 1) 

2  *muul 

txyuu20  =  (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx (kv , j v , 1) ) *muuu20+ (duzuO*  zty (kv , j  v , 1) +dvzuO*ztx (kv , j v , 1) ) *mu 

2  u2+dvzu2*ztx(kv, jv, 1) *muuO 

txyuu21  =  (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx(kv,jv,l)) +muuu21 +duzul*  zty (kv , j  v , 1) *muu2+dvzu2*ztx (kv , j  v , 1) 

2  *muul 

txyuu22  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 
1  etx(kv, jv, 1)) *muuu22+2*dvzu2*ztx (kv, jv, 1) *muu2 
txyuvOO  =  (duzuO*zty (kv , j  v , 1) +dvzuO*ztx (kv , j  v , 1) ) *muvO+ (duz*zty (kv 

1  , j v , 1) +dvz*ztx (kv , j  v , 1) +due* ety (kv , j  v , 1) +dve*etx (kv , j  v , 1) ) *muuv 

2  00+ (duevO*ety (kv , j  v , 1) +dvevO*etx (kv , j  v , 1) ) *muuO 

txyuvOl  =  (duzuO*zty (kv, jv, l)+dvzuO*ztx(kv, jv,l))*muvl+(duz*zty(kv 

1  , j  v ; 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve*etx (kv , j v , 1) ) *muuv 

2  01+duevl*ety(kv, jv,l)*muuO 

txyuv02  =  (duzuO*zty (kv, jv, l)+dvzuO*ztx(kv, jv, 1) ) *muv2+(duz*zty (kv 

1  , jv, l)+dvz*ztx(kv, jv,l)+due*ety(kv, jv,l)+dve*etx(kv, jv,l))*muuv 

2  02+dvev2*etx(kv, jv, 1) *muuO 

txyuvlO  =  duzul*zty(kv, jv, 1) *muvO+ (duz*zty(kv, jv, l)+dvz*ztx(kv, jv, 

1  1)  +due*ety (kv , j  v , 1) +dve*etx (kv , j v , 1) ) *muuvlO+ (duevO+ety (kv , j  v , 1 

2  )+dvevO*etx(kv, jY,l))*muul 

txyuvll  =  duzul*zty (kv, jv, 1) *muvl+ (duz*zty (kv, jv, 1) +dvz*ztx(kv, jv, 

1  1) +due*ety (kv, jv, 1) +dve*etx(kv, jv, 1) ) *muuvll+duevl*ety (kv, jv, 1) 

2  *muul 

txyuvl2  =  duzul*zty (kv, jv, 1) *muv2+ (duz*zty (kv, jv, 1) +dvz*ztx(kv, jv, 

1  1) +due*ety (kv , j v , 1) +dve*etx (kv , j v , 1) ) *muuvl2+dvev2*etx (kv , j v , 1) 

2  *muul 

txyuv20  =  dvzu2*ztx(kv, j v , 1) *muvO+ (duz*zty (kv, jv, 1) +dvz*ztx(kv, jv, 

1  1) +due*ety (kv , j v, 1) +dve+etx(kv , j v, 1) ) *muuv20+ (duevO*ety (kv, jv, 1 

2  )+dvevO*etx(kv, jv,l))*muu2 

txyuv21  =  dvzu2*ztx(kv, jv, 1) *muvl+(duz*zty(kv, jv, 1) +dvz*ztx(kv, jv, 

1  1) +due+ety (kv, j  v, 1) +dve*etx(kv, j v, 1) ) *muuv21+duevl*ety (kv, j v, 1) 

2  *muu2 

txyuv22  =  dvzu2*ztx(kv, j v, 1) *muv2+ (duz*zty (kv, jv , 1) +dvz*ztx(kv, jv, 

1  l)+due*ety(kv, jv, 1) +dve*etx(kv, jv, 1) ) *muuv22+dvev2*etx(kv, jv, 1) 

2  *muu2 

txyvuOO  =  (duz*zty (kv, j v , 1) +dvz*ztx (kv, j v , 1) +due+ety (kv, j v , 1) +dve* 

1  etx (kv, jv, 1) ) *muYuOO+ (duzuO* zty (kv, j v , 1) +dvzuO*ztx (kv, jv, 1) ) *mu 

2  vO+ (duevO*ety (kv , j  v , 1) +dvevO*etx (kv , j  v , 1) ) *muuO 

txyvuOl  =  (duz*zty (kv , j v , 1) +dvz*ztx(kv , j v , 1) +due*ety (kv , jv , 1) +dve* 


1  etx (kv , j v , 1) ) *m\ivu01+duzul*zty (kv , j v , 1) *muvO+ (duevO*ety (kv , j  v , 1 

2  )+dvevO*etx(ky, jv,l))*muul 

txyyu02  =  (duz*zty(ky, jv,l)+dvz*ztx(kv, jv,l)+due*ety(kv, jv,l)+dve* 

1  e  tx  (kv ,  j  v ,  1)  ) *muvu02+dvzu2*ztx (kv , j  v , 1) *muvO+ (duevO*ety (kv , j  v , 1 

2  )+dvevO*etx(kv, jv,l))*muu2 

txyvulO  =  (duz*zty(kv, jv,l)+dvz*ztx(kv, jy,l) +due*ety(kv, jv, l)+dve* 
X  etx  (kv ,  j  v ,  1)  ) *muvulO+ (duzuO*zty (kv , j  v , 1) +dvzuO*ztx (kv , j  v , 1) ) *mu 
2  vl+duevl*ety (ky, jv, 1) *muuO 

txyvul 1  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j v , 1)  +dve* 

1  etx  (kv ,  j  v ,  1)  )  *muv-.il  1 +duzul  *  z  ty  (kv ,  j  v ,  1)  *muv  1 +duevl  *  ety  (kv , j  v , 1 ) 

2  *muul 

txyvui2  =  (duz*zty(kv, jv,l)+dvz*ztx(kv, jv,l)+due*ety(kv, jv,l)+dve* 

1  etx  (kv , j  v , 1) ) *muvul2+dvzu2*ztx (kv ,  j  v ,  1) *muvl+duevl*ety (kv , j  v , 1) 

2  *muu2 

txyvu20  =  (dtiz*zty  (kv,  j  v,  l)+dvz*ztx(kv,  j  y, 1) +due*ety (kv, j v, 1) +dve* 

1  etx  (kv ,  j v , 1) ) *muvu20+ (duzuO*zty (kv , j  v , 1) +dvzuO*ztx (kv , j  v , 1) ) *mu 

2  v2+dvev2+etx(kv, jv,l)*muuO 

txyvu21  =  (duz*zty(kv, jy,l)+dvz*ztx(kv, jv,l)+due*ety(kv, jv,l)+dve* 

1  etx  (kv , j  v , 1) ) *muvu21+duzul*zty (kv , j v , 1) *muv2+dvev2*etx (kv , j v , 1) 

2  *muul 

txyvu22  =  (duz*zty (kv , j  v , 1) +dvz+ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx  (kv , j  v , 1) ) *muvu22+dvzu2*ztx (kv , j v , 1) *muv2+dvev2*etx (kv , j  v , 1) 

2  *muu2 

txyvvOO  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j v , 1) +dve* 

1  etx  (kv ,  j  v , 1) ) *muvvOO+2* (duevO*ety (kv , j  v , 1) +dvevO*etx (kv , j  v , 1) ) * 

2  muvO 

txyvvOl  =  (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j v , 1) +dve* 

1  etx  (kv ,  j  v , 1) ) *muvv01+ (duevO*ety (kv , j  v , 1) +dvevO*etx (kv , j  v , 1)  )  *mu 

2  vl+duevl*ety(kv, jv,l)*muvO 

txy vv02  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j v , 1) +dve* 

1  etx  (kv, j v, 1) ) *muvv02+ (duevO*ety (kv, j v , 1) +dvevO*etx(kv , jv , 1) ) *mu 

2  v2+dvev2*etx(kv, jv,l)*muvO 

txyvvlO  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j v , 1) +due*ety (kv , j v , 1) +dve* 

1  etx(kv,  jv,  1))  *muvvlO+ (duevO*ety (kv , j  v , 1) +dvevO*etx (kv , j  v , 1) ) *mu 

2  vl+duevl*ety (kv, jv,l)*muvO 

txyvvl 1  =  (duz*zty  (kv , j  v , 1) +dvz*ztx (ky , j v , 1) +due*ety (kv , j v , 1)  +dve* 
1  etx (kv , j  v , 1) ) *muvvll+2*duevl*ety (kv , j v , 1) *muvl 

txyvvl2  =  (duz*zty (kv , j v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1) +dve* 

1  etx  (kv , j  v , 1) ) *muvvl2+duevl +ety (kv , j  v , 1) *muv2+dvev2*etx (kv , j  v , 1) 

2  *muvl 

txyvv20  =  (duz*zty(kv, jv,l)+dvz*ztx(kv, jv,l)+due*ety(kv, jv, l)+dve* 

1  etx  (kv , j  v , 1) ) +muvv20+ (duevO*ety (kv , j  v , 1) +dvevO*etx (kv , j  v , ) ) ) *mu 

2  v2+dvev2*etx(kv, jv,l)*muYO 

txyvv21  =  (duz*zty (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1)  +dve* 

1  etx  (kv ,  j  v , 1) ) *muvv21+duevl*ety (kv , j  v , 1) *muv2+dvev2*etx (kv , j  v , 1) 

2  *muvl 

txyvv22  =  (duz*zty  (kv , j  v , 1) +dvz*ztx (kv , j  v , 1) +due*ety (kv , j  v , 1)  +dve* 
1  etx (kv , j  v , 1) ) *muvv22+2*dvev2*etx (kv , j  v , 1) *muv2 

tyy : totrds*mu* (2 . 0*zty*dvz+2 . 0*ety *dve-ztx*duz-etx*due)  ; 

tyy  =  rrmu(kv, jv)*(2.0*dvz*zty(kv, jv,l)-duz*ztx(kv, jv,l)+2.0*dve*e 
1  ty (kv , j  v , 1 ) -due*e tx (kv,jv,l))*  to trds 

tyydO  =  (2.0*dvz*zty(kv, jv, 1) -duz*ztx(kv, jv, l)+2.0*dve*ety (kv, jv, 1 

1  )  -due*etx(kv, jv, 1)) *mudO*totrds+rrmu(kv, jv) * (2.0*dvzd0*zty (kv, j 

2  v , 1) -duzdO*ztx (kv , j  v , 1) +2 . 0*dvedO*  ety (kv , j  v , 1) -duedO*etx (kv , j  v , 

3  l))*totrds 

tyydl  =  rrmu(ky, jv) *(-duzdl*ztx(kv, jv, 1) -duedl*etx(kv, jv , 1)) *totrd 


tyyd2  =  rrmu(kv, jv) * (2.0*dvzd2*zty(kv, jv, l)+2.0*dved2*ety (kv, jv,l) 
1  )* totrds 

tyyuO  =  (2 .0*dvz*zty (kv , j v , 1) -duz*ztx (kv , j v , 1) +2 . 0*dve+ety (kv , j v , 1 

1  ) -due*etx (kv ,  j  v ,  1)  ) *muuO*totrds+rrmu (kv , j  v) * (2 . 0*dvzuO*zty (kv , j 

2  v, 1) -duzuO*ztx(kv, jv,l))*totrds 

tyyul  =  (2.0*dvz*zty (kv, jv, 1) -duz*ztx(kv, jv, 1) +2.0*dve*ety (kv, jv, 1 

1  ) -due*etx(kv , j v , 1) ) *muul+totrds-duzul*rrmu(kv, j v) *ztx(kv, jv, 1) * 

2  totrds 

tyyu2  =  (2.0*dvz+zty (kv, jv, l)-duz*ztx(kv, jv,l)+2.0*dve*ety(kv, jv, 1 

1  ) -due*etx(kv, jv, 1) ) *muu2*totrds+2.0*dvzu2*rrmu(kv, jv) *zty (kv, jv 

2  ,l)*totrds 

tyyvO  =  (2.0*dvz*zty(kv, jv,l)-duz*ztx(kv, jv,l)+2.0*dve*ety(kv, jv,l 

1  ) -due*etx (kv , j v , 1) ) *muvO*totrds+rrmu(kv , j v) * (2 .0*dvevO*ety (ky , j 

2  v, 1) -dueyO*etx(kv, jv, 1) ) *totrds 

tyyvl  =  (2.0*dvz*zty (kv, jv,l)-duz*ztx(kv, jv, 1) +2.0*dve*ety(kv, jv,l 

1  )-due+etx(kv, jv,l))*muvl*totrds-duevl*rrmu(kv, jv)*etx(kv, jv,l)* 

2  totrds 

tyyv2  =  (2 .0*dvz*zty (kv, j v, 1) -duz*ztx(kv , jv, 1) +2.0*dve*ety (kv, jv, 1 

1  ) -due*etx(kv, jv , 1) ) *muv2*totrds+2.0+dvev2*rrmu(kv, jv) *ety (kv, jv 

2  , l)*totrds 

tyyddOO  =  (2 .0*dvz+zty  (kv , j  v , 1) -duz*ztx (kv , j v , 1) +2 .0*dve*ety (kv , j v 

1  , 1)  -due*etx (kv , j  v , 1) ) *mudd00+totrds+2* (2 .0*dvzd0*zty (kv , j v , 1) -d 

2  uzdO*  ztx (kv , j  v , 1 ) +2 . 0+d vedO*ety (kv , j  v , 1 ) -duedO*etx (kv , j  v , 1) ) *mu 

3  dO*totrds+rrmu(kv , jv) * (2 .0*dvzdd00*zty (kv, jv, l)-duzddOO*ztx(kv, 

4  j  v , 1) +2 . 0*dveddOO*ety (kv , j  v , 1) -dueddOO*etx (kv , j  v , 1) ) *totrds 
tyyddOl  =  (-duzdl*ztx(kv, jv, l)-duedl*etx(kv, jv, 1) ) *mudO+totrds+rrm 

1  u (kv , j  v) * (-duzddOl *ztx (kv , j  v , 1) -dueddOl *etx (kv , j  v , 1) ) *totrds 

tyydd02  =  (2 . 0*dvzd2*zty (kv , j v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) +mudO*tot 

1  rds+rrmu (kv , j  v) * (2 . 0*dvzdd02*zty (kY , j  v , 1) +2 . 0*dvedd02*ety (kv , j  v 

2  ,l))*totrds 

tyyddlO  =  (-duzdl*ztx (kv, j v, 1) -duedl*etx (kv, j v , 1) ) *mudO*totrds+rrm 
1  u (kv , j  v) * (-duzddlO*ztx (kv , j v , 1) -dueddlO*etx (kv , j v , 1) ) *totrds 
tyydd20  =  (2 . 0*dvzd2*zty  (kv , j v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) *mudO*tot 

1  rds+rrmu (kv , j v) * (2 . 0*dvzdd20*zty (kv , j  v , 1) +2 . 0*dvedd20*ety (kv , j v 

2  ,l))*totrds 

tyyuuOG  -  (2.0+uvz*zty (kv , j  v , 1) ~duz*ztx (kv, jv, 1) +2.0*dve+ety (kv, jv 

1  ,1)  -due*etx(kv, jv , 1) ) *muddOO*totrds+2* (2.0*dvzd0*zty(kv, jv, l)-d 

2  uzdO+ztx(kv, j v, 1) +2.0*dved0*ety (kv, j v, 1) -duedO*etx(kv, jv, 1)) *mu 

3  dO*totrds+rrmu (kv , j  v) * (2 . 0*dvzdd00*  zty (kv , j  v , 1) -duzddOO*ztx (kv , 

4  j  v , 1 ) +2 . 0*dvedd00*ety (kv , j  v , 1) -dueddOO*etx (kv , j v , 1) ) *totrds 
tyyddOl  =  (-duzdl*ztx(kv, j v, 1) -duedl*etx(kv, jv, 1)) *mudO* totrds +rrm 

1  u (kv , j  v) * (-duzddOl ~ztx (ky , j v , 1) -dueddOl *etx (kv , j v , 1) ) *totrds 

tyydd02  =  (2 . 0*dvzd2*  zty (kv , j  v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) *mudO*tot 

1  rds+rrmu (kv , j v) * (2 . 0*dvzdd02*zty (kv , jv, 1) +2.0*dvedd02*ety (kv , j v 

2  ,l))*totrds 

tyyddlO  =  (-duzdl*ztx(kv , jv, 1) -duedl*etx (kv, jv, 1) ) *mudO*totrds+rrm 
1  u(kv , j  v) * (-duzddlO*ztx (kv , j  v , 1) -dueddlO*etx (kv , j v , 1) ) *totrds 
tyydd20  =  (2 .0*dvzd2*zty (kv , j  v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) *mudO*tot 

1  rds+rrmu (kv, jv) * (2.0*dvzdd20*zty (kv, jv,l) +2.0*dvedd20*ety (kv, jv 

2  ,l))*totrds 

tyyduOO  =  (2.0*dvzd0*zty (kv, jv,l)-duzdO*ztx(kv, jv,l)+2.0*dved0*ety 

1  (kv , j v , 1) -duedO*etx (kv, j v, 1) ) *muu0+totrds+(2.0*dvz*zty (kv, jv, 1) 

2  -duz*ztx(kv, jv,l) +2.0*dve*ety(kv, jv, l)-due*etx(kv, jv,l))*muduOO 

3  *totrds+ (2 .0*dvzu0*zty (kv , j v , 1) -duzuO*ztx(kv , j v , 1) ) *mudO*totrds 

4  +rrmu(kv, jv) * (2 .0*dvzdu00*zty (kv , jv, l)-duzduOO*ztx(kv, jv, 1) ) *to 

5  trds 

tyyduOl  =  (2.0*dvzd0*zty (kv, jv, 1) -duzdO*ztx(kv, jv, l)+2.0*dved0*ety 

1  (kv , j v , 1) -duedOtetx (kv , j v , 1) ) *muul*totrds+ (2.0*dvz*zty (kv, jv, 1) 

2  -duz*ztx(kv, j v, 1) +2.0*dve*ety (kv, jv, 1) -due*etx(kv, jv, 1) ) *mudu01 


3  *totrds-duzul*ztx(kv , j v , 1) *oud0*totrds-duzdu01*rrmu(kv , j v) *ztx  ( 

4  kv, jv,l)*totrds 

tyydu02  =  (2 . 0*dvzd0*  zty (kv , j  v , 1) -duzdO*  ztx (kv ,  j  v ,  1)  +2 . 0*dvedO*ety 

1  (kv , j  v , 1) -duedO*etx (kv , j  v , 1) ) *muu2*totrds+ (2 . 0*dvz*zty (kv , j v , 1) 

2  -duz*ztx (kv , j  v , 1 ) +2 . 0*dve  *e ty (kv , j  v , 1 ) -due  *etx (kv , j  v , 1) ) *mudu02 

3  *totrds+2 . 0*dvzu2*zty (kv , j v , 1) *mud0*totrds+2.0*dvzdu02*rrmu(kv , 

4  jv)*zty(kv, jv,l)*totrds 

tyydulO  =  (-duzdl*ztx(kv, jv, l)-duedl*etx(kv, jy, 1)) *muuO*totrds-duz 
1  dulO*rrmu (kv , j  v) *ztx (kv ,  j  v ,  1) *totrds 

tyydull  =  (~duzdl*ztx(kv, jv, 1) -duedl*etx(kv, jv,l))*muul*totrds 
tyydul2  =  (-duzdl*ztx(kv, jv,l)-duedl*etx(kv, jv,l))*muu2*totrds 
tyydu20  =  (2.0*dvzd2*zty (kv, jv, l)+2.0*dved2*ety (kv, jv, 1)) *muuO*tot 
1  rds+2.0*dvzdu20*rrmu(kv, j v) *zty (kv, jv, 1) *totrds 
tyydu21  =  (2 .0*dvzd2*zty (kv , j  v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) *muul*tot 
1  rds 

tyydu22  =  (2.0*dvzd2*zty (kv , jv, 1) +2.0*dved2*ety (kv, jv, 1) ) *muu2*tot 
1  rds 

tyydvOO  =  (2 . 0*dvzdO*zty (kv , j  v , 1) -duzdO*ztx (kv , j v , 1) +2 . 0*dvedO*ety 

1  (kv , j v , 1) -duedO*etx (kv , j  v , 1) ) *muvO*totrds+ (2 . 0*dvz*zty (kv , j  v , 1) 

2  -duz*ztx(kv, jv,l)+2.0*dve*ety(kv, jv, l)-due*etx(kv, jv, 1) ) *mudvOO 

3  *totrds+ (2 . 0*dvevO*ety (kv , j  v , 1) -duevO^etx (kv , j v , 1) ) *mudO*totrds 

4  +rrmu (kv , j  v) * (2 . 0*dvedvOO*ety (kv , j  v , 1) -duedvOO+etx (kv , j v , 1) ) *to 

5  trds 

tyydvOl  =  (2 . 0*dvzdO*  zty (kv , j  v , 1) -duzdO*  ztx (kv , j  v , 1) +2 . 0*dvedO*ety 

1  (kv , j  v , 1) -duedO+etx (kv , j  v , 1) ) *muvl*totrds+ (2 .0+dvz*zty (kv , j v , 1) 

2  -duz*ztx (kv , j v , 1) +2 .0*dve*ety (kv , j v , 1) -due*etx (kv , j v , 1) ) *mudv01 

3  *totrds-duevl*etx (kv , j  v , 1) *mud0*totrds-duedv01*rrmu (kv , j v) *etx ( 

4  kv, jv,l)*totrds 

tyydv02  =  (2 . 0*dvzdO*zty (kv , j v , 1) -duzdO*ztx (kv , j v , 1) +2 . 0*dvedO*ety 

1  (kv , j  v , 1 ) -duedO*etx (kv , j  v , 1) ) *muv2*totrds+ (2 . 0*dvz*zty (kv , j  v , 1) 

2  -duz*ztx (kv , j  v, 1) +2 .0*dve*ety (kv , j v , 1) -due*etx (kv , j v , 1) ) *mudv02 

3  *totrds+2 . 0+dvev2*ety (kv , j  v , 1) *mudO*totrds+2 . 0+dvedv02*rrmu (kv , 

4  jv)*ety(kv, jv,l)*totrds 

tyydvlO  =  (~duzdl*ztx (kv , j v , 1) -duedl*etx (kv , j  v , 1) ) *muvO*totrds-due 
1  dvlO*rrmu (kv , j v) *etx (kv , j  v , 1) *totrds 

tyydvll  =  (-duzdl*ztx(kv, jv, l)-duedl*etx(kv, jv, 1)) *muvl*totrds 
tyydvl2  =  (~duzdl*ztx(kv, jv, l)-duedl*etx(kv, jv,l))*muv2*totrds 
tyydv20  =  (2.0*dvzd2*zty (kv, jv, l)+2.0*dved2*ety(kv, jv, l))*muvO*tot 
1  rds+2 . 0*dvedv20*rrmu (kv , j  v) *ety (kv , j  v , 1) *totrds 

tyydv2I  =  (2.0*dvzd2*zty(kv, jv,l)+2.0*dved2*ety(kv, jv,l)) *muvl*tot 
1  rds 

tyydv22  =  (2 . 0*dvzd°*zty (kv , j v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) *muv2*tot 
1  rds 

tyyudOO  =  (2 . 0*dvz*zty (ky , j v , 1) -duz*ztx (kv , j  v , 1) +2 . 0*dve*ety (kv , j  v 

1  ,1) -due*etx (kv , j  v , 1) ) *muudOO*totrds+ (2 . 0*dvzdO*zty (kv , j  v , 1) -duz 

2  dO*ztx (kv , j  v , 1) +2 . 0*dved0*ety (kv , j  v , 1) -duedO*etx (kv , j  v , 1) ) *muuO 

3  *totrds+ (2 .0*dvzuO*zty (kv , j v, 1) -duzuO*ztx (kv , j v , 1) ) +mudO*totrds 

4  +rrmu (ky , j  v) * (2 . 0*dvzud00*  zty (kv , j  v , I ) -duzudOO*ztx (kv , j  v , 1 ) ) * to 

5  trds 

tyyudOl  =  (-duzdl*ztx(kv, j v , 1) -duedl*etx(kv, jv, 1)) *muuO*totrds-duz 
1  ud01*rrmu(kv, jv) *ztx(kv, jv, l)*totrds 
tyyud02  =  (2 .0*dvzd2*zty (kv , j v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) *muuO*tot 
1  rds+2.0*dvzud02*rrmu(kv , j v) *zty (kv , jv, 1) *totrds 

tyyudlO  =  (2.0*dvz*zty (kv, jv, 1) -duz* ztx (kv, jv, l)+2.0*dve*ety (kv, jv 

1  ,1) -due*etx (kv , j v , 1) ) *muudlO*totrds+ (2 .0*dvzdO*zty (kv , j v , 1) -duz 

2  dO*ztx(kv, j v, l)+2.0*dved0*ety(kv, jv, l)-duedO*etx(kv, jv, l))*muul 

3  *totrds-duzul*ztx(kv , jv, 1) *mudO+totrds-duzudlO*rrmu(kv, jv) *ztx( 

4  kv, jv,l)*totrds 

tyyudll  =  (-duzdl*ztx(kv, j v , 1) -duedl*etx (kv, j v, 1) ) *muul*totrds 


tyvudl2  =  (2.0*dvzd2*zty (kv, jv, 1) +2.0*dved2*ety (kv, jv, 1) ) *muul*tot 
1  rds 

Uyyud20  =  (2.0*dvz*zty (kv, j v, 1) -duz*ztx(kv, jv,  1) +2.0*dve*ety (kv, jv 

1  ,1) -due*etx (kv , j  v , 1) ) *muud20*totrds+ (2 .0*dvzd0*zty (kv, j v, l)-duz 

2  dO*ztx(kv , j v, 1) +2.0*dved0*ety (kv, j v, 1) -duedO*etx(kv, jv, 1)) *muu2 

3  * tot rds +2 . 0*dvzu2*zty (kv , j v , 1) *mud0*totrds+2.0*dvzud20*rrmu(kv , 

4  j v) *zty (kv , j v , 1) *totrds 

tyyud21  -  (-duzdl*ztx (kv , j v , 1) -duedl*etx (kv, jv, 1) ) *muu2*totrds 
tyyud22  =  (2 .0*dvzd2*zty (kv , j v , 1) +2.0*dved2*ety (kv, j v, 1) ) *muu2*tot 
1  rds 

tyyvdOO  =  (2.0*dvz*zty  (kv , j v , 1) -duz*ztx (kv, j v, 1) +2.0*dve*ety (kv, j v 

1  ,1) -due*etx(kv , jv, 1) ) *n>uvdOO*totrds+ (2.0+dvzd0*zty (kv, jv, 1) -duz 

2  dO*ztx(kv, jv, 1) »2.0*dved0*ety (kv, jv,l)-duedO*etx(kv, jv,l))*muvO 

3  *  tot rds + (2 .0*dvev0*ety (kv, j v, 1) -duevO*etx(kv , jv, 1)) *mudO*totrds 

4  +rrmu(kv , j v) * (2 .0*dvevd00*ety (kv , j v , 1) -duevdOO*etx(kv , jv, 1) ) *to 

5  trds 

tyyvdOl  =  (~duzdl*ztx(kv , j v, 1) -duedl*etx(kv, jv, 1) ) *muvO*totrds-due 
1  vd01*rrmu(kv, j v) *etx (kv, j v, 1) ♦totrds 
tyyvd02  =  (2.0*dvzd2*zty (kv, jv , 1) +2.0*dved2*ety (kv, jv, 1) ) *muvO*tot 
1  rds+2.0*dvevd02*rrmu(kv, jv) *ety(kv, jv, 1) *totrds 
tyyvdlO  =  (2 . 0*dvz*zty (kv , j  v , 1) -duz*ztx (kv , j v , 1) +2 . 0*dve*ety (kv , j v 

1  , 1) -due*etx(kv, j v, 1) ) *muvdlO*totrds+ (2.0*dvzd0*zty (kv, jv, 1) -duz 

2  dO*ztx (kv , j v , 1) +2 .0*dved0*ety (kv , j v , 1) -duedO*etx (kv , j v, 1) ) *muvl 

3  *totrds  -duevl*etx(kv , j v, 1) *mudO*totrds-duevdlO*rrmu(kv, j v) *etx( 

4  kv, jv,l)*totrds 

tyyvdll  =  (-duzdl*ztx(kv, j v, 1) -duedl*etx(kv, jv, 1)) *muvl*totrds 
tyyvdl2  =  (2 . 0*dvzd2*zty (kv , j v , 1) +2 . 0*dved2*ety (kv , j v , 1) ) *muvl*tot 
1  rds 

tyyvd20  =  (2 .0*dvz*zty (kv , j v , 1) -duz*ztx (kv, j v, 1) +2 .0*dve*ety (kv, j v 

1  ,1) -due*etx (kv, j v, 1) ) *muvd20*totrds+ (2.0*dvzd0*zty (kv, jv, 1)  -duz 

2  dO*ztx (kv , j  v , 1) +2 . 0*dved0*ety (kv , j v , 1) -duedO+etx (kv , j v , 1) ) *muv2 

3  *totrds+2.0*dvev2*ety (kv, jv, 1) *niud0*totrds+2.0+dvevd20*rrmu(kv, 

4  j  v) *ety (kv, j v, 1) *totrds 

tyyvd21  =  (-duzdl*ztx (kv, j v , 1) -duedl*etx (kv, j v , 1) ) *muv2*totrds 
tyyvd22  =  (2.0*dvzd2*zty (kv, jv, l)+2. 0*dved2*ety (kv, jv, 1)) *muv2*tot 
1  rds 

tyyuuOO  =  (2.0*dvz*zty (kv, jv, 1) -duz*ztx(kv, j v, 1) +2.0*dve*ety (kv, jv 

1  ,1)  -due*etx(kv , jv, 1) ) *muuu00*totrds+2* (2.0*dvzu0*zty (kv, jv, 1) -d 

2  uzuO+ztx(kv , j v, 1) ) *muuO*totrds 

tyyuuOl  =  (2.0*dvz*zty (kv, jv, l)-duz*ztx(kv, jv, 1) +2.0*dve*ety (kv, jv 

1  ,1)  -due*etx(kv, jv, 1) ) *muuu01*totrds+ (2.0*dvzu0*zty (kv, jv, 1) -duz 

2  uO*ztx(kv, jv , 1) ) *muul*totrds~duzul*ztx (kv, j v, 1) *muuO*totrds 
tyyuu02  =  (2.0*dvz*zty (kv , jv, 1) -duz*ztx (kv , jv, 1) +2.0+dve*ety (kv, jv 

1  ,1) -due*etx(kv , j v, 1) ) *muuu02*totrds+ (2.0*dvzu0*zty (kv , jv, l)-duz 

2  uO*ztx(kv, j v, 1) ) *nuu2*totrds+2 .0*dvzu2*zty (kv , jv, 1) *muuO*totrds 
tyyuulO  =  (2 .0*dvz*zty (kv, jv,l) -duz*ztx(kv, jv, 1) +2.0*dve+ety (kv, j v 

1  , 1) -due*etx(kv, jv, 1) ) *muuulO*totrds+ (2.0*dvzu0*zty (kv, jv , 1)  -duz 

2  uO*ztx (kv, j v , 1) ) *muul*totrds-duzul*ztx(kv, jv, 1) *muuO*totrds 
tyyuull  =  (2 .0*dvz*zty (kv, j v, 1) -duztztx (kv , jv, 1) +2.0*dve*ety (kv , j v 

1  ,1) -due*etx(kv, j v , 1) ) *muuull*totrds-2*duzul*ztx(kv, j v, 1) *muul*t 

2  otrds 

tyyuu!2  -  (2.0*dvz*zty (kv, jv, 1) -duz*ztx(kv, j v, 1) +2.0*dve*ety (kv, jv 

1  ,1) -due*etx (kv , j  v , 1) ) *muuul2*totrds-duzul*ztx (kv, jv, 1) *muu2*tot 

2  rds+2.0*dvzu2*zty(kv, jv, 1) *muul*totrds 

tyyuu20  =  (2 .0*dvz*zty (kv , j v , 1) -duz*ztx (kv , j v, 1) +2.0*dve*ety (kv, j v 

1  , 1) -due*etx  (kv , j v , 1 ) ) *muuu20*totrds+ (2.0*avzu0*zty (kv , j  v , 1) -duz 

2  uO*ztx (kv , j  v , 1) ) *muu2*totrds+2 .0*dvzu2*zty (kv , j v , 1) *muuO*totrds 
tyyuu21  -  (2 .0«dvz*zty (kv , j v , 1) -duz*ztx (kv , j v , 1) +2 .0*dve*ety (kv , j v 

1  ,1) -due*etx (kv , j v , 1 ) ) *muuu21*totrds-duzul*ztx (kv , j v , 1) *muu2*tot 


2  rds+2 .0*dvzu2*zty (kv , j v , 1) *muul*totrds 

tyyuu22  =  (2 . O+dvz+zty  (kv , j v , 1} -duz* ztx (kv , j v , 1) +2.0*dve*ety (kv, j v 

1  , 1) -due  +  etx  (kv , jv , 1) )  +muuu22*totrds-t-4 .0+dvzu2*zty  (kv ,  j  v ,  1)  *muu2 

2  *totrds 

tyyuvOO  =  (2.0+dvzu0*zty (kv, jv , 1) -duzuO+ztx (kv , jv, 1)) *muvO*totrds+ 

1  (2.0+dvz*zty(kv, jv, 1)  -duz* ztx (kv ,  j v ,  1)  +2.0*dve+ety  (kv ,  jv ,  1) -due 

2  *etx(kv, jv, 1) ) *muuvOO*totrds+ (2.0*dvev0*ety (kv, jv, 1) -duevO*etx( 

3  kv , j v , 1) ) *muuO+totrds 

tyyuvOl  =  (2 . O+dvzuO+zty (kv , j v , 1) -duzuO+ztx(kv, j v , 1) ) *muvl*totrds+ 

1  (2 .O+dvz+zty (kv , j v, 1) -duz+ztx(ky , j  v, 1) +2.0*dve+ety (kv, j  v, 1) -due 

2  *etx(kv,jv,l)) +muuv01*totrds-duevl+etx(kv , j v , 1) *muuO*totrds 
tyyuv02  =  (2 . O+dvzuO+zty (kv , j  v , 1) -duzuO*  ztx (kv , j  v , 1) ) »muv2*totrds+ 

1  (2.0+dvz+zty (kv, j v, 1 ) -duz*ztx(kv , j v , 1) +2.0*dve*ety (kv , j v, 1) -due 

2  *etx(kv, jv , 1) ) *muuv02*totrds+2.0*dvev2*ety (kv , jv , 1) *muuO*totrds 
tyyuvlO  =  -duzul*ztx(kv, jv, 1) *muvO*totrds+(2. O+dvz+zty (kv, jv, l)-du 

1  z*ztx(kv,jv,l) +2 .O+dve+ety (kv , jv , 1) -due+etx (kv , j v, 1) ) *muuvlO*to 

2  trds-*- (2.0+dvevO+ety (kv ,  j  y ,  l)-duevO*etx(kv, j v ,  1) )  *muul*totrds 
tyyuvll  =  -duzul+ztx(kv, j v, 1) *muvl*totrds+ (2.0+dvz+zty (kv, j v, 1) -du 

1  z*ztx (kv, j v , 1) +2.0*dve*ety (kv, jv, 1) -due*etx(kv, jv , 1) ) *muuvll*to 

2  trds-duevl*etx(kv, jv, 1) +muul*totrds 

tyyuvl2  =  -duzul*ztx(kv, jv, 1) *muv2*totrdt>+ (2.0*dvz*zty (kv, j v, l)-du 

1  z*ztx(kv, jv,l)+2.0*dve*ety(kv, jv,l)-due*etx(kv, j v, 1) ) *muuvl2*to 

2  trds+2.0*dvev2*ety(kv, jv, 1) *muul*totrds 

tyyuv20  =  2.0+dvzu2*zty  (kv , jv, 1) *muvO*totrds+(2 ,0*dvz*zty (kv, j v , 1) 

1  -duz*ztx(kv, j v , 1) +2.0*dve*ety (kv , jv, 1) -due*etx(kv, jv, 1)) *muuv20 

2  *totrds+ (2 . 0*dvevO*ety (kv , j v , 1) -duevO*etx (kv , j  v , 1) ) *muu2*totrds 
tyyuv21  =  2 . 0+dvzu2*zty (kv , j  v , 1) *muvi*totrds+ (2 .0*dvz*zty (kv , j  v , 1) 

1  -duz*ztx(kv, j v, 1) +2.0*dve*ety (kv, jv, 1) -due*etx (kv, jv, 1) ) *muuv21 

2  *totrds- duevl*etx(kv, jv, 1) *muu2*totrds 

tyyuv22  =  2 . 0*dvzu2*zty (kv , j v , 1) *muv2*totrds+ (2 . 0*dvz*zty (kv , j v , 1) 

1  -duz*ztx(kv, jv, l)+2.0*dve*ety(kv, jv, l)-due*etx(kv, jv, 1)) *muuv22 

2  *totrds+2 -0*dvev2*ety (kv , j v, 1) *muu2*totrds 

tyyvuOO  =  (2 . 0+dvz*zty  (kv , j v , 1) -duz*ztx (kv , j v, 1) +2.0*dve*ety (kv, jv 

1  , 1) -due»etx(kv, jv, 1)) *muvu00*totrds+(2.0*dvzu0*zty (kv, jv, l)-duz 

2  uO*ztx(kv , j v , 1) ) *muvO*totrds+(2 .0*dvev0*ety (kv , jv, 1) -duevO+etx( 

3  kv, j v, 1) ) *muuO*totrds 

tyyvuOl  =  (2.0*dvz*zty (kv, j v, 1) -duz*ztx (kv, jv, 1) +2.0*dve*ety (kv, jv 

1  , 1) -due+etx (kv, j v , 1) ) *muvu01*totrds-duzul*ztx (kv, jv, 1) *muvO*tot 

2  rds+ (2.0*dvev0*ety (kv , jv, 1) -duevO*etx(kv, jv , 1) ) *muul*totrds 
tyyvu02  =  (2.0*dvz*zty (kv, jv, 1) -duz*ztx(kv, j v, 1) +2.0*dve*ety (kv, jv 

1  , 1)  -due+etx (kv , j v, 1) ) +muvu02*totrds+2 .0+dvzu2*zty (kv, jv, 1) *muvO 

2  *totrds+ (2 .O+dvevO+ety (kv, jv , 1) -duevO*etx(kv, j v, 1) ) *muu2*totrds 
tyyvulO  =  (2.0*dvz+zty (kv, jv,l)-duz*ztx(kv, jv,l)+2.0*dve*ety(kv, jv 

1  ,1)  -due+etx (kv, jv, 1)) *muvulO*totrds+ (2.0+dyzuO+zty (kv, jv, 1) -duz 

2  uO*ztx(kv, jv, 1)) *muvl*totrds-duevl+etx(kv, jv, 1) +nmuO*totrds 
tyyvull  =  (2 . O+dyz+zty (kv, jv, 1) -duz* ztx (kv , jv, 1) +2.0*dve*ety (kv, jv 

1  , 1)  -due*  e tx (kv , j v , 1) ) *muvull*totrds-duzul*ztx (kv, j v , 1) *muvl+tot 

2  rds-duevl+etx(kv, jv, 1) *muul*totrds 

tyyvul2  =  (2 .O+dvz+zty (kv, jv , 1) -duz* ztx (kv, j v, 1) +2.0*dve*ety (kv , j v 

1  ,1) -due+etx (kv, j v , 1) ) *muYul2*totrds+2 .0*dvzu2*zty (kv , jv, 1) *muvl 

2  *totrds-duevl*etx (kv , j v, 1 ) +muu2*totrds 

tyyvu20  =  (2.0*dvz*zty(kv,jv, 1) -duz* ztx (kv, j v, 1) +2.0*dve*ety (kv , j v 

1  ,1) -due+etx (kv, j v , 1) ) *muvu20*totrds+ (2 .O+dvzuO+zty (kv , jv , 1) -duz 

2  uO*ztx(kv,jv,l)) *muv2*totrds+2 .0+dvev2*ety (kv, j v, 1) *muuO*totrds 
tyyvu21  -  (2 .O+dvz  +  zty (kv , j v , 1) -duz* ztx (kv, j v , 1) +2.0*dve*ety (kv , j v 

1  ,1)  -due  +  etx (kv , j v , 1) ) *muvu21 *totrds-duzul*ztx (kv , j v , 1) *muv2*tot 

2  rds+2.0*dvev2*ety  (kv, jv, 1) *muul*totrds 

tyyvu22  -  (2.0*dvz*zty(kv,jv,l)-duz*ztx(kv,jv,l)+2.0*dve+ety(kv,jv 
1  ,l)-due+etx(kv,jv,l)) *muvu22*totrds+2 - 0*dvzu2*zty (kv , j v, 1) *muv2 


2  *totrds+2 .0*dvev2*ety (kv, jv, 1) *muu2*totrds 
tyyvvOO  =  (2.0*dvz*zty (kv, jv, 1) -duz*ztx(kv, jv, 1) +2.0*dve*ety (kv, jv 

1  , 1)  -due*etx(kv, j  v, 1) ) *muvvOO*totrds+2* (2.0*dvev0*ety (kv, jv, 1) -d 

2  uevO*etx(kv , jv , 1) ) *muvO*totrds 

tyyvvOl  =  (2.0*dvz*z*y (kv, jv, l)-duz*ztx(kv, jv,l) +2.0*dve*ety(kv, jv 

1  ,1)  -due*etx(kv, jv , 1) ) *nmvv01*totrds+(2.0*dvev0*ety (kv, jv, 1) -due 

2  vO+etx(kv, j v, 1) ) *muvl*totrds-duevl*etx(kv, jv, 1) *muvO*totrds 
tyyvv02  =  (2 . 0*dvz*zty (kv , j v , 1) -duz*ztx (kv , j  v , 1) +2 . 0*dve*ety (kv , j v 

1  ,1)  -due*etx (kv , j  v , 1) ) *muvv02*fcotrds+ (2 . 0*dvevO*ety (kv , j v , 1 ) -due 

2  vO*etx(kv , jv, 1) ) *muv2*totrds+2.0*dvev2*ety (kv, j v, 1) *muvO*totrds 
tyyvvlO  =  (2.0*dvz*zty (kv, j v, 1) -duz*ztx(kv, jv, l)+2 .0*dve*ety (kv, jv 

1  , 1)  -due*etx (kv , j v , 1) ) *muvvlO*tctrds+ (2 . 0*dvevO*ety (kv , j v , 1) -due 

2  vO*etx(kv, jv , 1) ) *muvl*totrds-duevl*etx(kv, jv, 1) *muvO*totrds 
tyyvvll  =  (2.0*dvz*zty (kv, jv, l)-duz*ztx(kv, jv, l)+2.0*dve*ety(kv, jv 

1  , 1) -due*etx(kv, jv, 1)) *muvvll*totrds-2*duevl*etx(kv, jv, 1) +muvl*t 

2  otrds 

tyyvvl2  =  (2.0*dvz*zty (kv, j v, 1) -duz*ztx (kv, jv , 1) +2.0*dve*ety (kv, jv 

1  , l)-due*etx(kv, j v, 1)) *muvvl2*totrds-duevl*etx (kv, jv, 1) *muv2*tot 

2  rds+2.0*dvev2*ety (kv, jv, 1) *muvl*totrds 

tyyvv20  -  (2 . 0*dvz*zty (kv , j  v , 1) -duz*ztx (kv , j  v , 1) +2 . 0*dve*ety (kv , j v 

1  ,1) -due*etx (kv , j  v , 1) ) *muvv20*totrds+ (2 . 0+dvevO*ety (kv , j  v , 1) -due 

2  vO*etx(kv , jv , 1)) *muv2*totrds+2.0*dvev2*ety (kv, jv, 1) *muvO*totrds 
tyyvv2l  =  (2.0*dvz*zty (kv, jv, 1) -duz*ztx(kv, jv, 1) +2.0*dve*ety (Lv, jv 

1  ,1) -due*etx (kv , j  v , 1) ) *muvv21 *totrds-duevl +etx (kv , j  v , 1) *muv2*tot 

2  rds+2.0*dvev2*ety(kv, jv, 1) *muvl*totrds 

tyyvv22  =  (2.0*dvz*zty (kv , jv, l)-duz*ztx(kv, jv, 1) +2.0*dve*ety (kv, jv 

1  , l)-due*etx(kv, jv, 1)) *muvv22*totrds+4.0*dvev2*ety(kv, jv, l)*muv2 

2  *totrds 


bx : gaa«aiu/pr* (ztx*dez+etx*dee) +m/r*txx+n/r*txy 

by :gaa*mu/pr* (zty*dez+ety*dee) +m/r*txy+n/r*tyy 

bx  =  rrmu(kv, j  y) * (dez*ztx(kv, jy, 1) +dee*etx(kv, j v, 1)) *garma/pr+rhov 
1  (kv, jy, 1) *txy/rho(kv, jv, 1) +rhou(kv, jy, 1) *txx/rho(kv , jY,l) 
bxdO  =  (dez*ztx(ky, jv, l)+dee*etx(kv, jv, l))*mudO*gamna/pr+rrmu(kv, j 

1  v) * (dezdO*ztx (ky , j  v , 1) +deedO*etx (kv , j v , 1) ) *gamma/ pr+rhov (kv , j  v , 

2  1) * txydO/rho (kv , j  v , 1) -rhoy (k v , j  v , 1) *txy/rho (kv , j  v , 1) * *2+rhou (kv 

3  , j  v , 1) *txxdO/rho (kv , j  v , 1) -rhou (ky , j  v , 1) *txx/ rbo (ky , j  v , 1) **2 
bxdl  =  rrmu(kv, jv) * (dezdl*ztx(kv, j v, 1) +deedl*etx(kv, j v, 1) ) *gamma/p 

1  r+rhov(kv , j v, 1) *txydl/rho(kv, j v, 1) +rhou(kv, jv, 1) *txxdl/rho(kv, j 

2  v,l)+txx/rho(kv, jv,l) 

bxd2  =  rrmu(kv, jv) * (dezd2*ztx(kv, j v, 1) +deed2*etx(kv, jv, 1)) *gamma/p 

1  r+rhov(kv, jv, l)*txyd2/rho(kv, j /,l)+txy/rho(kv, jv, l)+rhou(kv, jv, 

2  1) *txxd2/rho(ky, jv,l) 

bxd3  =  rrmu(kv, jy) * (dezd3*ztx(kv, j v, 1) +deed3*etx(kv, j y, 1) ) *gamma/p 
1  r 

bxuO  =  (dez*ztx(kv, jv, 1) +dee*etx(kv, jv,l))*muuO*ganuaa/pr+dezuO*rrm 

1  u(kv,  j v)  *ztx(kv, jv, 1)  *gamjna/pr+rhoY(kY,  jv,l)*txyuO/rho(kv,  jv,l) 

2  +rhou(kv, jv, 1) *txxuO/rho(kv, jv, 1) 

bxul  =  (dez*ztx(kv, jv, l)+dee*etx(kv, jv, 1)) *muul*gamma/pr+dezul*rrm 

1  u(kv , j v) *ztx (kv , j v , 1) *gamma/pr +rhoY (kv , j v , 1) *txyul/rho (kv , j v , 1) 

2  +rhou (kv , j  v , 1) * Lxxul /rho (kv , j  v , 1) 

bxu2  =  (dez*ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *muu2*gamma/ pr+dezu2*rrm 

1  u (kv ,  j  v)  *  ztx (kv , j  v , 1) *gamma/pr+rhov (kv , j  v , 1) *txyu2/ rho (kv , j  v , 1) 

2  +rhou(kv, j v, 1) *txxu2/rho (kv, jv, 1) 

bxu3  =  dezu3*rrmu(kv, jv)*ztx(kv, jv,l)*gamma/pr 

bxvO  =  (dez*ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *muvO*gamma/pr+deevO*rrm 

1  u (kv , j  v) *  etx (kv , j  v , 1 ) *gamma/pr+rhov (kv , j  v , 1 ) * txyvO/rho (kv , j  v , 1 ) 

2  +rhou (kv , j  v , 1) *txxvO/rho (kv , j  v , 1) 

bxvl  =  (dez*ztx(kv, jv, l)+dee*etx(kv, jv, 1)) *muvl*gamma/pr+deevl*rrn 

1  u(kv, jv)*etx(kv, jv,l)*gamma/pr+rhov(kv, jv,l) *txyvl/rho(kv, jv,l) 

2  +rhou (kv , j  v , 1 ) *txxvl/rho (kv , j y , 1) 

bxv2  =  (dez*ztx (kv , j v , 1) +dee*etx  (kv , j v , 1) ) *muv2*gamma/pr+deev2*rrm 

1  u (kv , j  v) *etx (kv , j  v , 1) *gajMua/ pr+rhoY (kv , j  v , 1) *txy v2/rho (kv , j  v , 1) 

2  +rhou(kv , j v, 1) *txxv2/rho (kv, jv, 1) 

bxv3  =  deev3*rrmu(kv, jv) *etx(kv, jv,l) *gamma/pr 

bxddCX)  =  (dez*ztx(kv, jv, 1) +dee*etx(kv, jv,l))*mudd00*gamma/pr+2*(de 

1  zdO*ztx (kv , j  v , 1) +deedO*etx (kv , j  v , 1) ) *mudO*gamoa/ pr+rrmu (kv , j v) * 

2  (dezddOO*ztx(kv, jv, l)+deeddOO*etr (kv, jv,l)) *gamma/pr+rhov(kv, jv 

3  , 1 ) * txyddOO/rho (kv , j  v , 1 ) -2  *  rhov (kv , j  v , 1 ) *  txydO/rho (kv,jv,l)*+2+ 

4  2*rhov (kv , j  v , 1) *txy/ rho (kv , j  v , 1) * +3+rhou (kv , j  v , 1) * txxddOO/rho (k 

5  v. jv,l)-2*rhou(kv, jv,l)*txxdO/rho(kv, jv, 1) **2+2*rhou(kv, jv,l)*t 

6  xx/rho(kv, jv, 1) **3 

bxddOl  =  (dezdl'»ztx(kv,  jv,  1)  +deedl+etx  (kv,  jv,  1))  tmudO+gamma/pr+rrm 

1  u(kv, jv) * (dezdd01*ztx(kv, jv, 1) +dscdd01*etx(kv, jv, 1)) *gamma/pr+r 

2  hov (kv , j v , 1) *txydd01/ rho (kv , j  v , 1) -rhov (kv , j  v , 1)  *txydl/rho (kv , j  v 

3  ,1) **2+rhou(kv, jv, 1) *txxdd01/rho(kv, jv, l)-rhou(kv, jv, 1) *txxdl/r 

4  ho (kv , j  v , 1) *  *2+txxd0/rho (kv , j v , 1 ) -txx/rho (kv , j v , 1) **2 

bxdd02  =  (dezd2*ztx(kv, jy, 1) +doed2*etx (ky, jv,l)) *mudO+ganima/pr+rrm 

1  u(kv, j v) * (dezdd02*ztx(kv, j v, 1) +deedd02*etx(kv, j v, 1)  )  +gamma/pr+r 

2  hov(kv, jv,l)*txydd02/rho(kv, jv,l)-rhov(kv, jv,l)*txyd2/rho(kv, jv 

3  , 1) **2+txyd0/rho(kv, jv, 1) -txy/rho(kv, jv, 1) **2+rhou(kv, jv, 1) *txx 

4  dd02/rho(kv, jy, 1) -rhou(kv, jv, 1) *txxd2/rho(kv, jv,l) **2 

bxdd03  =  (dezd3*ztx(kv, j  v, 1) +deed3*etx (kv, j v, 1) ) *mudO*gainma/pr+rrm 
1  u(kv, jv) * (dezdd03*ztx(kv, j v, 1) +deedd03+etx(kv, j v, 1) )  *gamma/pr 

bxddlO  =  (dezdl*ztx(kY, jv, 1) +deedl*etx(kv, jv,l))*mudO*gamma/pr+rrm 
1  u(kv, jv) * (dezddlO*ztx(kv, jv, 1) +deeddlO*etx (kv, j v, 1) ) *gamma/pr+r 


2  hov (kv ,  j  v ,  1 ) *txyddlO/ rho (kv , j  v , 1 ) -rhov (kv ,  j  v ,  1) *txydl / rho (kv , j  v 

3  , l)**2+rhou(kv, jv, 1) *txxddlO/rho(kv, jv, 1) -rhou(kv, jv, 1) *txxdl/r 

4  ho (kv , j  v , 1) *  *2+txxd0/rho (kv , j  v , 1) - txx/rho (kv , j  v , 1 ) *  *2 

bxddll  =  rrmu(kv, jv)*(dezddll*ztx(kv, jv, 1) +deeddll*etx(kv , jv,l))*g 
1  amma/pr+2*txxdl/rho(kv, jv,l) 
bxddl2  =  txydl/rho(kv, jv,l)+txxd2/rho(kv, jv,l) 

bxdd20  =  (dezd2*ztx (kv , j v , 1) +deed2*etx (kv , j v , 1) ) *mudO*gamma/ pr+rrm 

1  u (kv ,  j  v)  ♦ (dezdd20*ztx (kv , j  v , 1) +deedd20*etx (kv , j  v , 1) ) *gamma/ pr+r 

2  hov (kv ,  j  v ,  1) *txydd20/rho (kv , j  v , 1) -rhov (kv , j  v , 1) *txyd2/ rho (kv , j  v 

3  , 1) **2+txyd0/rho(kv, jv, 1) -txy/rho(kv, jv,l) **2+rhou(kv, jv, 1) *txx 

4  dd20/rho (kv , j  v , 1) -rhou (kv ,  j  v , 1) * txxd2/rho (kv , j  v , 1) +  *2 
bxdd21  =  txydl/rho(kv, jv,l)+txxd2/rho(kv, jv,l) 

bxdd22  =  rrmu(kv , j v) * (dezdd22*ztx (kv , j v , 1) +deedd22*etx (kv , j  v , 1) ) *g 
1  amma/pr+2*txyd2/rho(kv, jv,l) 

bxdd30  =  (dezd3*ztx (kv , j  v , 1) +deed3*etx (kv , j  v , 1) ) *mudO*gamma/ pr+rrm 
1  u (kv , j  v) * (dezdd30*ztx (kv , j  v , 1) +deedd30*etx (kv , j  v , 1) ) * gamma/ pr 

bxddOO  =  (dez*ztx(kY, jv, 1) +dee*etx(kv , jv, 1)) *mudd00*gamma/pr+2* (de 

1  zdO*  ztx (kv , j  v , 1) +deedO*  etx (kv , j  v , 1) ) *mudO*gamma/pr+rrnm  (kv , j  v) * 

2  (dezddOO*ztx (kv , j  v , 1) +deeddOO*etx (kv , j  v , 1) ) *gamma/pr+rhov (kv , j  v 

3  ,1) *txyddOO/rho (kv , j  v , 1)  -2*rhov (kv , j  v , 1) *txydO/rho (kv , j  v , 1) **2+ 

4  2*rhov (kv , j v , 1) *txy/rho (kv , j  v , 1) **3+rhou (kv , j v , 1) *txxddOO/rho (k 

5  v, j v, l)-2*rhou(kv, jv, 1) *txxdO/rho(kv, jv, 1) **2+2+rhou(kv, jv, 1) *t 

6  xx/rho(kv, jv, l)*+3 

bxddOl  =  (dezdl *ztx (kv , j  v , 1) +deedl *etx (kv , j v , 1) ) *mudO*gamma/ pr+rrm 

1  u (kv , j  v) * (dezdd01*ztx (kv , j  v , 1) +deedd01 *  etx (kv , j  v , 1) ) *gamma/pr+r 

2  hov (kv , j  v , 1) *txydd01 / rho (kv , j  v , 1) -rhov (kv , j  v , 1) +txydl / rho (kv , j  v 

3  , 1) **2+rhou(kv, jv, 1) *txxdd01/rho(kv , jv,l)-rhou(kv, jv, 1) *txxdl/r 

4  ho (kv , j  v , 1) *  *2+txxd0/ rho (kv , j v , 1) -txx/rho (kv , j  v , 1) *  *2 

bxdd02  =  (dezd2*ztx (kv , j  v , 1) +deed2*etx (kv , j  v , 1) ) *mudO*gamma/pr+rrn! 

1  u(kv, jv)* (dezdd02*ztx(kv, jv, l)+deedd02*etx(kv, jv, 1)) *gamma/pr+r 

2  hov (kv , j  v , 1) *txydd02/ rho (kv , j  v , 1) -rhov (kv , j  v , 1 ) *txyd2/rho (kv , j  v 

3  ,1) *+2+txyd0/rho(kv, jv,l)-txy/rho(kv, jv, 1) **2+rhou(kv, jv, 1) *txx 

4  dd02/rho(kv, jv, l)-rhou(kv, jv,l)*txxd2/rho(kv, jv,l)**2 

bxdd03  =  (dezd3*ztx(kv, jv, 1) +deed3*etx(kv, jv, 1)) *mudO*gamma/pr+rrm 
1  u(kv, j v) * (dezdd03*ztx(kv, jv, 1) +deedd03*etx(kv, jv . 1) ) *gamma/pr 

bxddlO  =  (dez dl*ztx(kv, jv, 1) +deedl*etx(kv, jv, l))*mudC+gamma/pr+rrm 

1  u (kv , j  v) * (dezddlO*  ztx (kv , j  v , 1) +deeddlO*etx (kv , j  v , 1) ) *gamma/pr+r 

2  hov (kv , j  v , 1) *txyddlO/ rho (kv , j  v , 1) -rhov (kv , j  v , 1) *txydl /rho (kv , j  v 

3  , 1) *  *2+rhou (kv , j  v , 1) *txxddlO/rho (kv , j  v , 1) -rhou (kv , j  v , 1) * txxdl / r 

4  ho(kv, jv,l)**2+txxd0/rho(kv, jv,l) -txx/rho (kv, jv,l)**2 

bxddl 1  =  rrmu (kv , j  v) * (dezddl 1 * ztx (kv , j  v , 1) +deeddll *etx (kv , j  v , 1) ) *g 
1  amma/pr+2*txxdl/rho(kv, jv,l) 
bxddl2  =  txydl/rho(kv, jv,l)+txxd2/rho(kv, jv,l) 

bxdd20  =  (dezd2*ztx(kv, jv, l)+deed2*etx(kv, jv,l))*mudO*gamma/pr+rrm 

1  u (kv , j v) * (dezdd20*ztx (kv , j  v , 1) +deedd20*etx (kv , j v , 1) ) *gamma/ pr+r 

2  hov (kv , j v , 1) *txydd20/rho (kv , j v , 1) -rhov (kv , j v , 1) *txyd2/ rho (kv , j  v 

3  ,1) **2+txyd0/rho (kv , j v, 1) -txy/rho (kv , j v , 1) **2+rhou(kv , j v , 1) *txx 

4  dd20/ rho (kv , j  v , 1 ) -rhou (kv , j  v , 1) *  txxd2 /rho(kv,jv,l)*+2 
bxdd21  =  txydl/rho(kv, jv,l)+txxd2/rho(kv, jv,l) 

bxdd22  =  rrmu(kv, jv) * (dezdd22*ztx (kv, j v , 1) +deedd22*etx(kv , j v, 1) ) *g 
1  amma/pr+2*txyd2/rho(kv, jv, 1) 

bxdd30  =  (dezd3*ztx(kv, jv, 1) +deed3+etx(kv, jv, 1)) *mudO*gamma/pr+rrm 
1  u(kv, jv)*(dezdd30*ztx(kv, jv,l)+deedd30+etx(kv, jv,l))*gamma/pr 
bxduOO  =  (dezdO*ztx(kv, jv, l)+deedO*etx(kv, jv,l))*muuO*gamma/pr+(de 

1  z*ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *muduOO*gamma/ pr+dezuO*ztx (kv , j 

2  v, 1) *mudO*gamma/pr+dezduOO*rrmu(kv, jv) *ztx(kv, jv, 1) *gamma/pr-rh 

3  ov (kv , j  v , 1) *txyuO/ rho (kv , j  v , 1) *  *2+rhov (kv , j  v , 1) *txyduOO/rho (kv , 

4  jv, l)-rhou(kv, jv, 1) *txxuO/rho(kv, jv, 1) **2+rhou(kv, jv , 1) *txxduOO 

5  /rho(kv , jv, 1) 


bxduOl  =  (dezdO*ztx (kv , j  v , 1) +deedO*etx (kv , j  v , 1) ) *muul *gaoma/ pr+ (de 

1  z*ztx (kv , j v , 1) +dee*etx (kv , j  v , 1) ) *mudu01 *ganuna/ pr+dezul*ztx (kv , j 

2  v , 1) *mud0*gamma/pr+dezdu01*rrmu (kv , j  v) *ztx (kv , j v , 1) * gamma/ pr-rh 

3  ov (kv , j  v , 1) *txyul/rho (kv ,  j  v ,  1) **2+rhov (kv , j v , 1) *txydu01/rho (kv , 

4  j  v , 1 ) -rhou (kv , j  v , 1 ) * txxul /rho (kv ,  j  v ,  1 )  *  *2+rhou (kv , j  v , 1) * txxduOl 

5  /rho(kv, jv,l) 

bxdu02  =  (dezdO*ztx  (kv , j  v , 1) +deedO*etx (kv , j  v , 1) ) *muu2*gamma/ pr+ (de 

1  z*ztx (kv ,  j  v ,  1) +dee*etx (kv , j  v , 1) ) *mudu02+gamma/ pr+dezu2*ztx (kv , j 

2  v ,  1) *mud0*gamma/pr+dezdu02*rrnm  (kv , j  v) *ztx (kv , j v , 1) *gamma/ pr-rh 

3  ov(kY, jv, l)*txyu2/rho(kv, jv, 1)  ■M>2+rhov(kv, jv,l)*txydu02/rho(kv, 

4  j  v ,  1)  -rhou (kv , j  v , 1) *txxu2/rho (kv , j v , 1) **2+rhou (kv ,  j  y  ,  1) +txxdu02 

5  /rho(kv, jv,l) 

bxdu03  =  dezu3*ztx(kv, jv,l)*mud0*gamma/pr+dezdu03*rrmu(kY, jv)*ztx( 
1  kv, jv,l)*gamma/pr 

bxdulO  =  (dezdl*ztx (kv , j  v , 1) +deedl*etx (kv , j  v , 1) ) *muuO* gamma/ pr+dez 

1  dulO*rrmu (kv , j  v) *ztx (kv , j v , 1) *gamma/ pr+rhov (kv , j v , 1) *txydulO/ rh 

2  o(kv,jv,l) +txxuO/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) *txxdulO/rho (kv , j  v , 1 

3  ) 

bxdul 1  =  (dezdl *ztx (kv , j  v , 1) +deedl*etx (kv , j  v , 1) ) *muul*gamma/ pr+dez 

1  dull *rrmu (kv , j  v) *  ztx (kv , j  v , 1) *ganuna/pr +rhov (kv , j  v , 1) *txydull/ rh 

2  o (kv , j  v , 1) +txxul/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txxdull/rho (kv , j  v , 1 

3  )  , 
bxdul2  =  (dezdl *ztx  (kv , j  v , 1) +deedl *etx (kv , j  v , 1) ) *muu2*gamma/ pr+rho 

1  v(kv, jv, 1) *txydul2/rho(kv, jv,l)+txxu2/rho(kv, jv,l)+rhou(kv, jv,l 

2  )*txxdul2/rho(kv, jv,l) 

bxdu20  =  (dezd2*ztx(kv, jv, l)+deed2*etx(kv, jv,l)) *muuO*gamma/ pr+dez 

1  du20*rrmu (kv , j  v) *ztx  (kv , j v , 1) *gamma/pr+txyuO/rho (kv , j v , 1) +rhov ( 

2  kv ,  j  v , 1 ) * txydu20/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1) * txxdu20/ rho (kv , j  v , 1 

3  ) 

bxdu21  =  (dezd2*ztx(kv, jv,l)+deed2*etx(kv, jv,l))*muul*ganuna/pr+txy 

1  ul/rho (kv , j v , 1) +rhov (kv , j v , 1) *txydu21/rho (kv, j v , 1) +rhou(kv , jv, 1 

2  )*txxdu21/rho(kv, jv,l) 

bxdu22  =  (dezd2*ztx (kv , j  v , 1) +deed2*etx (kv , j  v , 1) ) *muu2*gamma/ pr+dez 

1  du22*rrmu (kv , j  v) *ztx  (kv , j  v , 1) *gamma/pr+txyu2/rho (kv , j  v , 1) +rhov ( 

2  kv , j  v , 1) *txydu22/rho (kY , j v , 1) +rhou (kv , j v , 1) +txxdu22/rho (kv , j v , 1 

3  ) 

bxdu30  =  (dezd3*  ztx (kv , j  v , 1) +deed3*etx (kv , j v , 1) ) *muuO*gamma/pr+dez 
1  du30*rrmu (kv , j  v) *  ztx (kv , j  v , 1) *gamma/pr 

bxdu31  =  (dezd3*ztx(kv, jv,l)+deed3*etx(kv, jv,l))*muul*gamma/pr 
bxdu32  =  (dezd3*ztx(kv, jv,l)+deed3*etx(kv, jv,l))*muu2*gamma/pr 
bxdvOO  =  (de2sd0*ztx(kv, jv,l)+deedO*etx(kv, jv,l))*muvO*gamma/pr+(de 

1  z*ztx (kv , j v , 1) +dee*etx (kv , j v , 1) ) *mudvOO*gamma/ pr+deevO*etx (kv , j 

2  v , 1) *mudO*gamma/pr+deedvOO*rrmu (kv , j v) *etx (kv , j v , 1) *gamma/pr-rh 

3  ov (kv , j  v , 1) *txy vO/rho (kv , j v , 1) **2+rhov (kv , j v , 1) *txydvOO/rho (kv , 

4  j  v ,  1)  -rhou (kv , j  v , 1) *txxvO/rho (kv , j v , 1) **2+rhou(kv , j v , 1) *txxdvOO 

5  /rho(kv, jv,l) 

bxdvOl  =  (dezdO*ztx(kv, jv,l)+deedO*etx(kv, jv,l))*muvl*ganuna/pr+(de 

1  z*ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *mudv01*gamma/ pr+deevl*etx (kv , j 

2  v ,  1)  *mud0*gaauna/pr+deedv01 *rrmu (kv , j  v) *etx (kv , j  v , 1) *gamma/ pr-rh 

3  ov (kv , j  v , 1) +txyvl/rho (kv , j  v , 1) *#2+rhov (kv , j  v , 1) *txydv01/ rho (kv , 

4  jv,l)-rhou(kv, jv, 1) *txxvl/rho(kv, jv, 1) **2+rhou(kv, jv,l)*txxdv01 

5  /rho(kv, jv, 1) 

bxdv02  =  (dezdO*ztx(kv, jv,l) +deedO*etx(kv, jv,l))*muv2*gamma/pr+(de 

1  z*ztx (kv , j  v , 1) +dee*etx (kv , j v , 1) ) *mudv02*gamma/ pr+deev2*etx (kv , j 

2  v,  1) *ffiud0*gamma/pr+deedv02*rrnu(kv, jv) *etx(kv, jv, 1) *gaoma/ pr-rh 

3  ov (kv , j  v , 1) *txyv2/rho (kv , j  v , 1) **2+rhov (kv , j  v , 1) *txydv02/ rho (kv , 

4  jv,  l)-rhou(kv, jv, 1) +txxv2/rho(kv, jv, 1) +*2+rhou(kv, jv,l)*txxdv02 

5  /rho(kv, jv, 1) 

bxdv03  =  deev3+etx(kv, jv,l)+mud0*gaama/pr+deedv03*rrnu(kv, jv)+etx( 


1  kv, jv,l)*gamma/pr 

bxdrlO  =  (dezdl*ztx(kv, jv,l)+deedl*etx(kv, jv, 1) ) *muvO*gamoa/pr+dee 

1  dvlO*rrmu (kv , j v) *etx (kv, j v , 1) *gamma/pr+rhov (kv , j v, 1) *txydvlO/rh 

2  o (kv , j  v , 1) + txx vO/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1) *txxdvlO/rho (kv , j  v , 1 

3  ) 

bxdvll  =  (dezdl*ztx (kv , j v, 1) +deedl*etx(kv , j v, 1) ) *muvl*gamma/pr+dee 

1  dvll*rrnm(kv, jv) +etx(kv, jv, 1) *gamma/pr+rhov(kv, jv, 1) *txydvll/rh 

2  o (kv , j  v , 1) +txxvl/rho (kv , j v , 1) +rhou (kv , j  v , 1) *txxdvll/rho (kv , j  v , 1 

3  ) 

bxdvl2  =  (dezdl*ztx (kv , j v , 1) +deedl*etx(kv, j v, 1)) *muv2*gamma/pr+rho 

1  y (kv , j  v , 1 ) *txydvl2/rho (kv , j v , 1) +txxv2/rho (kv , j  v , 1) +rhou (kv , j v , 1 

2  ) *txxdvl2/ rho (kv , j v , 1)  v  , 

bxdv20  =  (dezd2*  ztx (kv , j  v , 1) +deed2*  etx (kv , j  v , 1) ) *nmvO*gamma/pr+dee 

1  dv20*rrmu (kv , j v) *etx (kv , j  v , 1) *gamma/pr+txyvO/rho (kv , j v , 1) +rhov ( 

2  kv , j  v , 1 ) *  txydv20/r ho ( kv , j  v , 1 ) +r hou ( kv , j  v , 1 ) *  txxdv20/rho (kv , j  v , 1 

bxdv21  =  (dezd2*ztx (kv , j  v , 1) +deed2*etx (kv , j  v , 1) ) *muvl*gamma/pr+txy 

1  y 1 /rho (kv , j  v , 1 ) +rho v  (kv , j  v , 1 ) *  txyd v21 /rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 

2  ) *txxdv21 / rho (kv , j  v , 1)  ’ 

bxdv22  =  (dezd2*ztx(kv ,  j  v ,  1)  +deed2*etx(kv .  j  v ,  1)  )  *muv2*gamma/pr-*  dee 

1  dv22*rrtnu (kv , j  v) *e  tx (kv , j  v , 1 ) *gamma/pr ► txy v2/ rho (kv , j  v , 1) +rhov ( 

2  kv , j  v , 1) *txydv22/ rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txxdv22/rho (kv , j v , 1 

3  ) 

bxdv30  =  (dezd3*ztx (kv , j  v , 1 ) +deed3*etx (kv , j  v , 1) ) *muvO*ganuna/pr+dee 
1  dv30*rrmu (kv , j v) *etx (kv , j v , 1) *gamma/pr 

bxdv31  =  (dezd3*ztx(kv, jv,l)+deed3*etx(kv, jv,l))*muvl*gamma/pr 
bxdr32  =  (dezd3*ztx(kv, jv,l)+deed3*etx(kv, jv,l))*muv2*gamma/pr 

bxudOO  =  (dez*ztx (kv , j  v , 1) +dee*etx (kv , j v , 1) ) *muudOO*gamma/pr+ (dezd 

1  0*ztx(kv, jv, l)+deedO*etx(kv , jv, 1)) *muuO*gamma/pr+dezuO*ztx(kv, j 

2  v, 1)  *mudO*gamma/ pr+dezudOO*rrmu (k v , j  v) *ztx(kv, jv, 1) *gamna/pr+rh 

3  oy (kv , 3  v , 1) *txyudOO/rho (kv , j v , 1) -rhov (kv , j v , 1) *txyuO/rho (kv, j v, 

4  l)y*2yrhou(kv , j v , 1) *txxudOO/rho (kv , j v , 1) -rhou(kv , jv , 1) ♦txxuO/rh 

5  o(kv, jv,l) **2 

bxudOl  =  (dezdl*ztx (kv , j v , 1) +deedl*etx (kv , j  v , 1) ) *muuO*ganUna/pr+dez 

1  ud01*rrmu(kv, jv)*ztx(kv , jv, 1) *gamma/pr+rhov (kv , jv, 1) *txyud01/rh 

2  o (kv , j  v , 1) +rhou (kv , j  v , 1) * txxudOl/rho (kv , j  v , 1) +txxuO/rho (kv , j  v , 1 

bxud02  =  (dezd2*ztx(kv, j v, 1) +deed2*etx(kv, j v, 1) ) *muuO*gamma/pr+dez 

1  ud02*rrmu(kv, jv) *ztx(kv , jv, 1) *gaoaa/pr+rhov(kv, jv, 1) *txyud02/rh 

2  o (kv , 3 v, 1) +txyuO/rho (kv , j  v , 1) +rhou (kv , j v , 1) *txxud02/rho (kv, j v , 1 

3  J 

bxud03  =  (dezd3*ztx (kv , j v, 1) +deed3*etx (kv, j v, 1) ) *nmuO*gamma/pr+dez 

1  ud03*rrmu (kv , j  v) *  z tx (kv , j  v , 1) *gamma/pr 

bxudlO  =  (dez*ztx (kv , j  v , 1 ) +dee*etx (kv , j  v , 1) ) *muudlO*gamma/pr+ (dezd 
Ovztx (ky , 3 v , 1) +deedO*etx (kv , jv , 1) ) *mvml*gamma/ pr+dezul*ztx (kv  j 

2  v , 1)  *mudO*gamma/ pr+dezudlO*rrmu (kv , j v) *ztx (kv , j v, 1) fgaoma/pr+rh 

3  oy(^,jy,l)*txyudlO/rho(kv, jv,l)-rhov(kv,jv,l)*txyul/rho(kv,jv, 

4  1) **2yrhou(ky , 3 v , 1) *txxudlO/rho (kv , j v , 1) -rhou(kv , j v , 1) *txxul/rh 

5  o(kv,3v,l)+*2 

bxudll  =  (dezdl+ztxfkv , j v, 1) +deedl*etx (kv, j v, 1)) *muul*gamma/pr+dez 

1  udll*rrmu (kv , 3 v) *ztx(kv , j y, 1) *gamma/pr+rhov (kv , jv, 1) *txyudll/rh 

2  o (kv , 3  v , 1) +rhou (kv , j  v , 1) *txxudll/rho (kv , j  v , 1) +txxul/rho (kv , j  v , 1 

3  ) 

bxudl2  =  (dezd2*ztx(kv , jv, 1) +deed2*etx(kv , jv, 1)) *muul*gamoa/pr+rho 

1  jv,l)*txyudl2/rho(kv,  jv,l)+txyul/rho(kv,  jv,l)+rhou(kv,  jv,l 

2  ) *txxudl2/rho(kv, jv, 1) 

bxudl3  =  (dezd3*ztx(kv , jv, 1) +deed3*etx(kv, jv, 1)) *muul*gamma/pr 
bxud20  =  (dez*ztx(kv , j v , 1) +dee*etx (kv , j v , 1) ) *muud20*gamma/pr+ (dezd 
1  0*ztx (kv , j v , 1) +deedO*etx (kv , j v , 1) ) *muu2*gamma/pr+dezu2*ztx (kv , j 


2  v , 1) *mud0*gamma/pr+dezud20*rrmu(kY, jv) *ztx(kv, jv, 1) *gamma/ pr+rh 

3  ov (kv , j v , 1) *txyud20/rho (kv , j v , 1) -rhov (kv ,  j  v ,  1) *txyu2/rho (kv , j  v , 

4  1 ) *  *2+rhou (kv , j  v , 1) *txxud20/rho (kv , j  v , 1) -rhou (kv , j  v , 1) *txxu2/ rh 

5  o(kv, jv,l)**2 

bxud21  =  (dezdl*ztx(kv, jv, 1) +deedl*etx(kv , jv, 1)) *muu2*gamma/pr+rho 

1  v(kv, jv,l)*txyud21/rho(kv, jv,l)+rhou(kv, jv,l)*txxud21/rho(kv, jv 

2  ,l)+txxu2/rho(kv, jv,l) 

bxud22  =  (dezd2*ztx(kv , j  v , 1) +deed2*etx (kv , j  v , 1) ) *muu2*gamma/ pr+dez 

1  ud22*  rrmu (kv , j  v) *ztx (kv , j  v , 1) ♦gamma/ pr+rhov (kv , j  v , 1 ) * txyud22/ r h 

2  o(kv,jv,l) +txy u2 /rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) * txxud22/ rho (kv , j  v , 1 

3  ) 

bxud23  =  (dezd3*ztx(kv, jv, l)+deed3*etx(kv, jv,l))*muu2*gamma/pr 
bxud30  =  dezu3*ztx(kv, jv, 1) *mud0*gamma/pr+dezud30*rrmu(kv , jv) *ztx( 
1  kv, jv,l)*gamma/pr 

bxvdOO  =  (dez+ztx(kv,  jv, l)+dee*etx(kv,  jv, 1) ) *muvdOO*gamma/pr+ (dezd 

1  0*ztx(kv, jv, 1) +deedO*etx(kv, jv, 1)) *muvO*gamma/pr+deevO*etx(kv , j 

2  v , 1) *mudO*gamma/pr+deevdOO*rrmu (kv , j v) *etx (kv, j v , 1) *gamma/pr+rh 

3  ov (kv , j  v , 1) * txyvdOO/ rho (kv , j  v , 1) -rhov (kv , j  v , 1) *txyvO/ rho (kv , j  v , 

4  1) **2+rhou(kv , j v , 1) *txxvdOO/rho (kv , j v , 1) -rhou(kv , j v , 1) *txxvO/rh 

5  o(kv,jv,l)**2  .  . 

bxvdOl  =  (dezdl*ztx(kv, jv, l)+deedl*etx(kv, j v, 1)) *muvO*gamma/pr+dee 

1  vd01*rrmu (kv , j  v) *etx (kv , j  v , 1) *gamma/pr+rhov (kv , j v , 1) ♦txyvdOl/rh 

2  o (kv , j  v , 1) +rhou (kv , j  v , 1) * txxvdOl /rho (kv , j  v , 1) +txxvO/ rho (kv , j  v , 1 

3  ) 

bxvd02  =  (dezd2*ztx(kv, jv, 1) +deed2*etx(kv, jv, 1)) +nmvO*gamma/pr+dee 

1  vd02*rrmu (kv , j  v) *etx (kv , j  v , 1) *gamma/pr+rhov (kv , j  v , 1) *txyvd02/ rh 

2  o(kv,jv,l) +txy vO/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1) * txxvd02/ rho (kv , j  v , 1 

3  ) 

bxYd03  =  (dezd3*ztx (kv , j  v , 1) +deed3*etx (kv , j  v , 1) ) *muvO*gamma/ pr+dee 
1  vd03*rrmu (kv , j  v) *etx (kv , j  v , 1 ) *gamma/pr 

bxvdlO  =  (dez*ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *muvdlO*gamma/pr+ (dezd 

1  O+ztx (kv , j v , 1) +deedO*etx (kv , j v , 1) ) *muvl*gamma/pr+deevl*etx (kv , j 

2  v , 1 ) *mudO*gamma/ pr+deevdlO*rrmu (kv , j  v) *etx (kv , j  v , 1) *gamma/ pr+rh 

3  ov (kv , j  v , 1) *txyvdlO/rho (kv , j  v , 1) -rhov (kv , j  v , 1) *txyvl/rho (kv , j  v , 

4  1) **2+rhou(kv, jv, 1) ♦txxvdlO/rho(kv, jv, l)-rhou(kv, jv, 1) *txxvl/rh 

5  o(kv, jv,l)**2 

bxvdll  =  (dezdl*ztx (kv , j  v , 1) +deedl*etx (kv , j  v , 1) ) *inuvl*gamma/ pr+dee 

1  vdll*rrmu(kv, jv)*etx(kv, jv,l)*gamma/pr+rhov(kv, jv,l)+txyvdll/rh 

2  o(kv, jv,l)+rhou(kv, jv, 1) *txxvdll/rho(kv, jv,l)+txxvl/rho(kv, jv,l 

3  ) 

bxvdl2  =  (dezd2*ztx(kv, jv, 1) +deed2*etx(kv, jv, 1)) *muvl*gamma/pr+rho 

1  v(kv, jv,l)*txyvdl2/rho(kv, jv,l)+txyvl/rho(kv, jv,l)+rhou(kv, jv,l 

2  )*txxvdl2/rho(kv, jv,l) 

bxvdl3  =  (dezd3*ztx(kv, jv, 1) +deed3*etx(kv, jv,l))*muvl*gamma/pr 
bxvd20  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))+muvd20*gamma/pr+(dezd 

1  0*ztx(kv, jv,l)+deedO*etx(kv, jv,l))*muv2*gamma/pr+deev2*etx(kv, j 

2  v ,  1)  ♦mud0*gamma/'pr+deevd20+rrmu  (kv ,  j  v)  *etx  (kv ,  j  v ,  1)  *gamma/  pr+rh 

3  ov (kv , j  v , 1 ) *txyvd20/rho (kv , j  v , 1) -rhov (kv , j  v , 1) * txyv2/ rho (kv , j  v , 

4  1 ) *  * 2+rhou (kv , j  v , 1) *  txxvd20/ rho (kv , j  v , 1 ) -rhou (kv , j  v , 1 ) * txxv2/ rh 

5  o(kv, jv,l)**2 

bxvd21  =  (dezdl*ztx(kv, jv, 1) +deedl*etx(kv, jv,l)) ♦muv2*gamma/pr+rho 

1  v (kv , j  v , 1) * txyvd21 /rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) + txxvd21/rho (kv , j  v 

2  ,l)+txxv2/rho(kv, jv,l) 

bxvd22  =  (dezd2*ztx(kv, jv, 1) +deed2*etx(kv, jv, 1) ) *muv2*gamma/pr+dee 

1  vd22*rrmu (kv , j  v) *etx (kv , j  v , 1) ♦gamma/pr+rhov (kv , j v , 1) *txyvd22/ rh 

2  o(kv,jv,l) +txyv2/rho (kv , j  v , 1) +rhou (kv , j  v , 1) * txxvd22/rho (kv , j  v , 1 

3  )  . 

bxvd23  =  (dezd3*ztx(kv, jv,l)+deed3*etx(kv, jv,l))*muv2*gamma/pr 
bxvd30  =  deev3*etx (kv , j  v , 1) *mud0*gamma/pr+deevd30*rrmu (kv , j  v) *etx ( 


1  kv, jv,l)*gamma/pr 

bxuuOO  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muuu00*gamma/pr+2*dez 

1  uO*  ztx (kv ,  j  v ,  1) *muuO*gamma/ pr+rhov (kv ,  j  v ,  1) *txyuuOO/ rho (kv , j  v , 1 

2  ) +rhou(kv , j  v , 1) *txxuuOO/rho (kv , j  v , 1) 

bxuuOl  =  (dez*ztx(kv, jv, l)+dee*etx(kv, jv, 1) ) *muuu01*gamma/pri dezuO 

1  *ztx (kv ,  j  v ,  1) *muul*gamma/ pr+dezul *ztx (kv ,  j  v ,  1) *muuO* gamma/ pr+rh 

2  ov (kv , j  v , 1) *txyuu01/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txxuu01/rho (kv , j 

3  v,l) 

bxuu02  =  (dez*ztx (kv , j  v , 1) +dee*etx  (kv ,  j  v ,  1)  ) *muuu02*gamma/ pr+dezuO 

1  *ztx(kv, jv, 1) *muu2*gamma/pr+dezu2*ztx(kv, jv, 1) *muuO*gamma/pr+rh 

2  ov (kv , j  v , 1 ) * txyuu02/rho (kv , j  v , 1 ) +rhou  (kv ,  j  v ,  1 ) *txxuu02/ rho (kv , j 

3  v,l) 

bxuu03  =  dezu3*ztx(kv, j v, 1) *muuO*gamma/pr 

bxuulO  =  (dez*ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *muuulO*gamma/ pr+dezuO 

1  *ztx (kv , j v , 1) *muul *gamma/pr+dezul*ztx (kv , j v , 1) *muuO*gamma/ pr+rh 

2  ov(kv, jv, 1) *txyuulO/rho(kv, j v, l)+rhou(kv, jv, 1) *txxuulO/rho(kv, j 

3  v,l) 

bxuull  =  (dez*ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *muuull*gamma/ pr+2*dez 

1  ul*ztx (kv , j  v , 1) *muul*gamma/pr+rhov (kv , j v , 1) *txyuull/rho (kv , j v , 1 

2  ) +rhou (kv , j  v , 1) *txxuull/ rho (kv , j  v , 1) 

bxuul2  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muuul2*gamma/pr+dezul 

1  *ztx(kv, jv, 1) +muu2*gamma/pr+dezu2*ztx(kv, jv, 1) *muul*gamma/pr+rh 

2  ov (kv , j v , 1) *txyuul2/rho (kv , j v , 1) +rhou (kv , j v , 1) *txxuul2/ rho (kv , j 

3  v,l) 

bxuul3  =  dezu3*ztx(kv, jv, 1) *muul*gamma/pr 

bxuu20  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muuu20*gamma/pr+dezu0 

1  +ztx (kv , j  v , 1) *muu2*gamma/pr+dezu2*ztx (kv , j v , 1) *muuO*gainma/pr+rh 

2  ov(kv,jv,l)*  txyuu20/rho (kv , j  v , 1) +rhou (kv , j  v , 1 ) *  txxuu20/ rho (kv , j 

3  v,l) 

bxuu21  =  (dez*ztx(kv , j v , 1) +dee*etx(kv , j v , 1) ) *muuu21*gamma/pr+dezul 

1  *ztx(kv , jv, 1) *muu2*gamma/pr+dezu2*ztx (kv, jv, 1) *muul*gamma/pr+rh 

2  ov (kv , j  v , 1) *txyuu21/rho (kv , j  v , 1) +rhou (kv , j  v , 1) * txxuu21/rho (kv , j 

3  v,l) 

bxuu22  =  (dez*ztx (kv , j  v , 1) +dee+etx (kv , j  v , 1) ) *muuu22+gamma/ pr+2*dez 

1  u2*ztx(kv, jv, 1) *muu2*gamma/pr+rhov(kv, jv, l)*txyuu22/rho(kv, jv, 1 

2  ) +rhou (kv , j v , 1) *txxuu22/rho (kv , j v, 1) 
bxuu23  =  dezu3*ztx(kv, jv, 1) *muu2*gamma/pr 
bxuu30  =  dezu3*ztx(kv, jv, 1) *muuO*gamma/pr 
bxuu31  =  dezu3+ztx(kv, jv, 1) *muul*gamma/pr 
bxuu32  =  dezu3*ztx(kv, jv, 1) *muu2+gamma/pr 

bxuvOO  =  dezuO*ztx(kv, jv,l)*muvO*gamma/pr+(dez*ztx(kv, jv,l)+dee*et 

1  x(kv, jv,l))*muuvOO*gamma/pr+deevO*etx(kv, jv,l)*muuO*gamma/pr+rh 

2  ov (kv , j  v , 1) *txyuvOO/rho (kv , j  v , 1) +rhou (kv , j  v , 1 ) *txxuvOO/ rho (kv , j 

3  T>1) 

bxuvOl  =  dezuO*ztx(kv, jv, 1) *muvl*gamma/pr+(dez*ztx(kv, jv, 1) +dee*et 

1  x(kv, jv,l))*muuv01*gamma/pr+deevl*etx(kv, jv, 1) *muuO*gamma/pr+rh 

2  ov (kv , j v , 1 ) *txyuv01/rho (kv , j  v , 1) +rhou (kv , j  v , 1 ) *txxuv01 / rho (kv , j 

3  v,l) 

bxuv02  =  dezuO+ztx (kv , j  v , 1) *muv2* gamma/ pr+ (dez*ztx (kv , j  v , 1) +dee*et 

1  x (kv , j  v , 1) ) *muuv02*gamma/pr+deev2*etx (kv , j v , 1) *muuO*gamma/pr+rh 

2  ov (kv , j  v , 1) *txyuv02/rho (kv , j  v , 1) +rhou (kv , j v , 1) *txxuv02/rho (kv , j 

3  v,l) 

bxuv03  =  deev3*etx(kv, jv,l)*muuO*gamma/pr 

bxuvlO  =  dezul*zfcx(kv, jv,l)*muvO*gamma/pr+(dez*ztx(kv, jv,l)+dee+et 

1  x (kv , j  v , 1) ) *muuvlO*gamma/pr+deevO*etx (kv , j v , 1) +muul*gamma/pr+rh 

2  ov (kv , j  v , 1) *txyuvlO/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) * txxuvlO/rho (kv , j 

3  v,l) 

bxuvll  =  dezul*ztx(kv, jv, 1) *muvl*gamma/pr+ (dez*ztx(kv, j v, 1) +dee*et 
1  x (kv , j  v , 1) ) *muuvl l*gamma/ pr+deevl+etx (kv , j  v , 1) *muul*gamma/ pr+rh 


2  ov (kv ,  j  v ,  1) * txyuvll / rho (kv , j  v , 1) +rhou (kv ,  j  v ,  1) *txxuvll / rho (kv , j 

3  v,l) 

bxuvl2  =  dezul+ztx(kv, jv,l)*muv2*gamma/pr+(dez*ztx(kv, jv,l)+dee*et 
1  x (kv , j  v , 1 ) ) *muuvl2*gamoa/pr+deev2*etx (kv ,  j  v ,  1) *muul * gamma/ pr+rh 
2 .  oy (kv , j  v , 1) * txyuvl2/rho (ky ,  j  v ,  1) +rhou (kv , jy , 1) *txxuvl2/ rho (ky , j 
3  v,l) 

bxuvl3  =  deev3*etx(kv, jv,l)*muul*gamma/pr 

bxuv20  =  dezu2*ztx(kv, jv, 1) *muvO*gamma/pr+(dez*ztx(kv, jv,l)+dee*et 

1  x (kv ,  j  v , 1) ) *muuv20*gamma/ pr+deevO*etx (kv , j  v , 1) *muu2+gamma/ pr+rh 

2  ov  (kv ,  j  v ,  1) * txy uv20/rho (lor ,  j  v ,  1) +rhou (kv , j  v , 1 ) *txxuv20/ rho (ky , j 

3  v»1)  .  , 

bxuv21  =  dezu2*ztx (kv , j  v , 1) *muv l*gamma/ pr+ (dez*  ztx (kv , j  v , 1) +dee*et 

1  x  (kv ,  j  v ,  1)  ) *muuv21*gamma/pr+deevl*etx (kv , j  v , 1) *ouu2*gamma/ pr+rh 

2  ov (kv , j  v , 1 ) * txyuv21/rho (kv ,  j  v ,  1) +rhou (kv , j  v , 1) * txxuv21/ rho (kv , j 

3 

bxuv22  =  dezu2*ztx(kv, jv,l)*muv2*gamma/pr+(dez*ztx(kv, jv,l)+dee*et 

1  x (kv , j  v , 1) ) *muuv22*gamma/ pr+deev2*etx (kv , jv , 1) *muu2*gamma/ pr+rh 

2  ov  (kv ,  j  v ,  1 ) *txyuv22/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) *txxuv22/ rho (kv , j 

3  v,l) 

bxuv23  =  deev3*etx(kv, jv,l)*muu2*gamma/pr 
bxuv30  =  dezu3*ztx(kv, jv,l)*muvO*gamma/pr 
bxuv31  =  dezu3*ztx(kv, j v,l) *muvl*gamma/pr 
bxuv32  =  dezu3*ztx(kv, jv, 1) *muv2*gamma/pr 

bxvuOO  =  (dez+ztx  (kv ,  j  v ,  1)  +dee*etx  (kv ,  j  v ,  1)  )  *muvuOO*gamma/  pr +dezuO 

1  *ztx  (kv , j  v , 1) *muvO*gamma/pr+deevO*  etx (kv , j  v , 1) *muuO*gamma/ pr+rh 

2  ov  (kv , j v , 1) *txyvuOO/rho (kv , j  v , 1) +rhou (kv , j v , 1) *txxvuOO/ rho (kv , j 

3  v,l) 

bxvuOl  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muvu01*gamma/pr+dezul 

1  *ztx  (kv ,  j  v ,  1 )  *muvO*gamma/pr+deevO*etx  (kv ,  j  v ,  1 )  *muul  *gamma/ pr+rh 

2  ov(kv, jv,l)*txyvu01/rho(kv, jv,l)+rhou(kv, jv,l)*txxvu01/rho(kv, j 

3  v,l) 

bxvu02  =  (dez+ztx (kv , j v , 1) +dee*etx(kv , j v , 1) ) *muvu02*gamma/pr+dezu2 

1  *ztx  (kv , jv , 1) *muvO*gamma/pr+deevO*etx(kv , j v , 1) *muu2*gamma/pr+rh 

2  ov (kv , j  v , 1) * txy vu02/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) * txxvu02/rho (kv , j 

3  v,l) 

bxvu03  =  dezu3*ztx(kv, jv, 1) *muvO*gamma/pr 

bxvulO  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muvulO*gamma/pr+dezuO 

1  *ztx  (kv , j v , 1) *muvl* gamma/ pr+deevl*etx (kv , jv , 1) *muuO*gamma/ pr+rh 

2  ov  (kv ,  j  v ,  1) * txyvulO/rho (kv , j v , 1) +rhou (kv , j  v , 1 ) * txxvulO/rho (kv , j 

3  v,l) 

bxvull  =  (dez+ztx (kv, jv,l)+dee*etx(kv, jv,l))*muvull*gamma/pr+dezul 

1  *ztx  (kv , j v , 1) *muvl*gamma/pr+deevl*etx (kv , j v , 1) *muul*gamma/pr+rh 

2  ov  (kv , j v , 1) *txyvull/rho (kv , j v , 1) +rhou (kv , j v , 1) *txxvull/rho (kv , j 

3  v,l) 

bxvul2  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muvul2*gamma/pr+dezu2 

1  +ztx(kv, jv,l) *muvl*gamma/pr+deevl*etx(kv, jv,l)*muu2*gamma/pr+rh 

2  ov  (kv , j  v , 1) *txyvul2/rho (kv , j v , 1) +rhou (kv , j  v , 1) *txxvul2/rho (kv , j 

3  v,l) 

bxvul3  =  dezu3*ztx(kv, jv, 1) *muvl+gamma/pr 

bxvu20  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muvu20*gamma/pr+dezu0 

1  *ztx(kv, jv,l) *muv2*gamma/pr+deev2*etx(kv, jv,l) +muuO*gamma/pr+rh 

2  ov (kv , j  v, 1) *txy vu20/rho (kv , j v , 1) +rhou(kv , j v , 1) *txxvu20/rho (kv , j 

3  v,l) 

bxvu21  =  (dez*ztx(kv, jv,l)+dee+etx(kv, jv,l))*muvu21*gamma/pr fdezul 

1  *ztx (kv, jv, 1) *muv2*gamma/pr+deev2*etx (kv, j v, 1) *muul*gamma/ pr+rh 

2  ov (kv , j  v , 1 ) *txy vu21/rho (kv , j  v , 1) +rhou (kv , j v , 1) * txxvu21/rho (kv , j 

3  v,l) 

bxvu22  =  (dez* ztx (kv, jv,l)+dee*etx(kv, jv,l))*muvu22*gamma/pr+dezu2 
1  *  ztx  (kv , j  v , 1) *muv2*gamma/ pr +deev2*etx (kv , j  v , 1 ) +muu2*gamoa/ pr+rh 
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2  ov (kv , j  v , 1) * txyvu22/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txxvu22/ rho (kv , j 

3  v,l) 

bxvu23  =  dezu3*ztx(kv, jv, 1) *muv2*gamma/pr 
bxvu30  =  deev3+etx(kv, jv,l)*muuO*gamma/pr 
bxvu31  =  deev3*etx(kv, j y, 1) *muul*gamma/pr 
bxvu32  =  deev3*etx(kv,  jv,l)+muu2*gaaima/pr 

bxwOO  =  (dez*ztx(kv, jy,l)+dee*etx(kv, jv,l))*nmvv00*gamnia/pr+2*dee 

1  vO*etx(kv, jv, 1) *muvO*gamina/pr+rhov(kv, jv,l)*txyvvOO/rho(kY, jy,l 

2  ) +rhou (kv , j  v , 1) *txxvvOO/rho (kv , j  v , 1) 

bxvvOl  =  (dez*  ztx (kv , j  v , 1) +dee*etx (kv , j  v , 1) ) *muvv01 *gamma/ pr+deevO 

1  *etx (kv , j  v , 1) *muvl*gamma/ pr+deevl*etx (kv , j v , 1) *muvO*gaoma/ pr+rh 

2  ov (kv ,  j  v ,  1) *txy vvOl / rho (kv ,  j  v , 1) +rhou (kv , j v , 1) *txxvv01/rho (kv , j 

3  v,l) 

bxvv02  =  (dez*ztx(kv, jv, l)+dee*etx(kv, jv, 1)) *muvv02*gamma/pr+deev0 

1  *etx (kv ,  j  v ,  1) *muv2*gamma/ pr+deev2+etx (kv , j v , 1) *muvO*gamma/ pr+rh 

2  ov  (kv ,  j  v ,  1 ) * txy vv02 /rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txxvv02/rho (kv , j 

3  v,l) 

bxvv03  =  deev3*etx(kv, jv,l)*muvO*gamma/pr 

bxvvlO  =  (dez*ztx (kv, j v , 1) +dee*etx (kv , j y , 1) ) +EUYvlO*ganuna/pr+deevO 

1  *etx (kv , j  v , 1) *muvl*gamma/ pr+deevl*etx (kv , j v , 1) *muvO*gamna/ pr+rh 

2  ov (kv , j  v , 1 ) *txy vvlO/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1) *txxvvlO/rho (kv , j 

3  v,l) 

bxvvll  =  (dez*ztx (kv , j v . 1) +dee*etx (kv , j v , 1) ) *muvvll*ganuna/pr+2*dee 

1  vl*etx(kv,  jv,l)*muvl*gamma/pr+rhov(kv,  jv,  1)  *txywll/rho(kv,  jv,l 

2  )+rhou(kv,  jv,l)  *txxwll/rho(kv,  jv,l) 

bxvvl2  =  (dez*ztx(kv, jv,l)+dee*etx(kv, jv,l))*muvvl2*gamma/pr+deevl 

1  *etx (kv , j  v , 1) +muv2*gamma/pr+deev2*etx (kv , j  v , 1) *muvl*gamma/ pr+rh 

2  ov  (kv ,  j  v ,  1 )  *  txy  wl2/rho  (kv ,  j  v ,  1 )  +rhou  (kv ,  j  v ,  1)  *  txxwl2/ rho  (kv ,  j 

3  v,l) 

bxvvl3  =  deev3*etx(kv, jv, 1) *muvl*gamma/pr 

bxvv20  =  (dez*ztx(kv, jv, l)+dee*etx(kv, jv,l))+muvv20*gamma/pr+deev0 

1  *etx(kv, jv, 1) *muv2*gamma/pr+deev2*etx(kv, jv, 1) *muvO*gamma/pr+rh 

2  ov (kv , j  v , 1) *txyvv20/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txxvv20/ rho (kv , j 

3  v,l) 

bxvv21  =  (dez+ztx  (kv , j  v , 1) +dee+etx (kv , j  v , 1) ) +muvv21 *gamma/pr+deevl 

1  *etx  (kv , j v , 1) +muv2*gamma/ pr+deev2*etx(kv, j v , 1) *muvl*gamma/pr+rh 

2  ov(kv, jv, 1) *txyvv21/rho(kv, jv,l)+rhou(kv, jv, 1) *txxvv21/rho(kv, j 

3  v,l) 

bxvv22  =  (dez+ztx(kv, jv, 1) +dee*etx(kv, jv,l))*muvv22+gamma/pr+2*dee 

1  v2*  e  tx  (kv ,  j  v ,  1 )  *muv2  *gaauna/pr +rhov  (kv ,  j  v ,  1 )  *  txy  w22/ rho  (kv ,  j  v ,  1 

2  )  +rhou  (kv ,  j  v ,  1 )  +txxw22/rho  (kv ,  j  v ,  1) 
bxvv23  =  deev3*etx(kv, jv, 1) *muv2*gamma/pr 
bxvv30  =  deev3*etx(kv, jv,l)*muvO*gamma/pr 
bxvv31  =  deev3*etx(kv, jv,l) *muvl*gamma/pr 
bxvv32  =  deev3+etx(kv, jv, 1) *muv2*gamma/pr 


by  =  rrmu(kv, jv) * (dez*zty (kv, jv,l)+dee*ety(kv, jv,l))*gamma/pr+rhov 
1  (kv, jv,l)*tyy/rho(kv, jv, l)+rhou(kv, jv, 1) *txy/rho(kv, jv,l) 
bydO  =  (dez*zty (kv , j  v , 1) +dee*ety (kv , j v , 1) ) *mudO*gamma/ pr+rrmu (kv , j 

1  v) * (dezdO* zty (kv , j  v , 1) +deedO*e ty (kv , j  v , 1 ) ) *gamma/pr+rhov (kv , j  v , 

2  1) * tyydO/rho (kv , j  v . 1) -rhov (kv , j v , 1) *tyy/ rho (kv , j  v , 1) **2+rhou (kv 

3  , jv, 1) *txydO/rho(kv, jv, l)-rhou(kv, jv,l) *txy/rho(kv, jv, 1) **2 
bydl  =  rrmu (kv , j  v) * (dezdl *  zty (kv , j  v , 1) +deedl*ety (kv , j v , 1) ) *gaoma/p 

1  r+rhov (kv , j  v , 1) *tyydl/rho (kv , j v , 1) +rhou (kv , j  v , 1) *txydl/ rho (kv , j 

2  v,l)+txy/rho(kv, jv,l) 

byd2  =  rrmu (kv , j  v) * (dezd2  *  zty (kv , j  v , 1 ) +deed2*ety (kv , j  v , 1) ) *gamma/ p 

1  r +rhov (kv , j  v , 1 ) *tyyd2/ rho (kv , j  v , 1 ) +tyy/rho (kv , j  v , 1) +rhou (kv , j  v , 

2  1) *txyd2/rho(kv, jv,l) 


byd3  =  rrmu(kv , j v) * (dezd3+zty (kv , j v , 1) +deed3*ety (kv , j v, 1) ) *gamma/p 
1  r 

'./uO  =  (dez*zty  (kv ,  j  v ,  1)  +dee*ety  (kv ,  j  v ,  1)  )  *muuO*gamma/ pr+dezuO*rrm 

1  u  (kv ,  j  v)  *zty  (kv ,  j  v ,  1) *gamma/pr+rhov (kv , j  v , 1) *tyyuO/rho (kv , j  v , 1) 

2  +rhou(kv, jv,l)*txyuO/rho(kv, jv,l) 

byul  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v, 1) ) *muul*gamma/pr+dezul*rrm 

1  u (kv , j  v) *zty (kv , j  v , 1) *gamma/ pr+rhov (kv , j  v , 1) *tyyul/rho (kv , j v , 1) 

2  +rhou(kv, jv, 1) *txyul/rho(kv, jv, 1) 

byu2  =  (dez+zty (kv ,  j  v ,  1) +dee*ety (kv , j v, 1) ) *muu2*gamma/pr+dezu2*rrm 

1  u (kv , j  v) *zty (kv , j  v , 1) *gamma/ pr+rhov (kv , j  v , 1) *tyyu2/rho (kv , j  v , 1) 

2  +rhou(kv , j  v , 1) *txyu2/rho (kv , j  v , 1) 

byu3  =  dezu3*rrmu(kv, jv)*zty(kv, jv, 1) *gamma/pr 

byvO  =  (dez*zty (kv ,  j  v ,  1) +dee*ety (kv , j  v , 1) ) *muvO*gamma/ pr+deevO*rrm 

1  u (kv , j  v) *ety (kv , j  v , 1) *gamma/ pr+rhov (kv , j  v , 1) *tyyvO/ rho (kv , j  v , 1) 

2  +rhou (kv , j  v , 1) *txyvO/rho (kv , j  v , 1 ) 

byvl  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j  v , 1) ) *muvl ♦gamma/ pr+deevl*rrm 

1  u (kv ,  j  v) *ety (kv , j  v , 1) *gamma/ pr+rhov (kv , j  v , 1) * tyy vl / rho (kv , j  v , 1) 

2  +rhou(kv, jv,l)*txyvl/rho(kv, jv,l) 

byv2  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muv2*gaama/pr+deev2*rrm 

1  u (kv , j  v) *ety (kv ,  j  v ,  1) *gamma/ pr+rhov (kv , j  v , 1) *tyyv2/ rho (kv , j  v , 1) 

2  +rhou (kv , j  v , 1) * txyv2/ rho (kv ,  j  v ,  1) 

byv3  =  deev3*rrmu(kv, jv)*ety (kv, jv,l)*gamma/pr 

byddOO  =  (dez*zty(kv, jv, 1) +dee*ety (kv, jv,l))*mudd00*gamma/pr+2*(de 

1  zdO*zty (kv , j  v , 1) +deedO*ety (kv , j  v , 1) ) *mudO*ganuna/pr+rrmu (kv , j  v) * 

2  (dezddOO+zty (kv , j  v , 1) +deeddOO*ety (kv , j  v , 1) ) *gamma/pr+rhov (kv , j  > 

3  ,1)  *tyyddOO/rho (kv, j v , 1) -2*rhov (kv , j v , 1) *tyydO/rho(kv, jv , 1) **2+ 

4  2*rhov (kv , j  v , 1) * tyy/rho (kv , j v , 1) **3+rhou (kv , j  v , 1) *txyddOO/rho (k 

5  v , j  v , 1) -2*rhou (kv , j  v , 1) *txydO/rho (kv , j  v , 1) **2+2*rhou (kv , j  v , 1) * t 

6  xy/rho (kv, jv, 1) +*3 

byddOl  =  (dezdl+zty (kv , j v , 1) +deedl*ety (kv , j v , 1) ) *mudO*gamma/ pr+rrm 

1  u(kv , j v) * (dezdd01*zty (kv , j v , 1) +deedd01*ety (kv , jv , 1) ) *gamma/pr+r 

2  hov (kv , j v , 1) *tyydd01/rho (kv , j v, 1) -rhov (kv , j v , 1) *tyydl/rho (kv , j v 

3  ,1) *  *2+rhou (kv , j  v , 1) *txydd01/rho (kv , j v , 1) -rhou (kv , j  v , 1) *txydl/ r 

4  ho (kv , j  v , 1) *  *2+txyd0/rho (kv , j v , 1) -txy/ rho (kv , j v , 1) *  *2 

bydd02  =  (dezd2*zty (kv , j  v , 1) +deed2*ety (kv , j  v , 1) ) *mudO*gamma/ pr+rrm 

1  u (kv , j  v) * (dezdd02*zty (kv , j  v , 1) +deedd02*ety (kv , j  v , 1) ) *gamma/ pr+r 

2  hov (kv , j  v , 1 ) * tyydd02/rho (kv , j  v , 1) -rhov (kv , j  v , 1) *tyyd2/ rho (kv , j  v 

3  ,1) **2+tyyd0/rho (kv , j  v , 1) -tyy/rho (kv , j v , 1) **2+rhou (kv , j v , 1) *txy 

4  dd02/rho (kv , j  v , 1) -rhou (kv , j v , 1) *txyd2/ rho (kv , j v , 1) **2 

bydd03  =  (dezd3*zty (kv , j  v , 1) +deed3*ety (kv , j v , 1) )  -»mudO*gamma/ pA  +rrm 
1  u (kv , j v) * (dezdd03*zty (kv , j  v , 1) +deedd03*ety (kv , j v , 1) ) *gamma/ pr 

byddlO  =  (dezdl*zty (kv , j v, 1) +deedl+ety (kv , j v, 1) ) *mudO*gamma/ pr+rrm 

1  u (kv , j  v) * (dezddlO*zty (kv , j  v , 1) +deeddlO*ety (kv , j v , 1) ) *gamma/ pr+r 

2  hov (kv , j  v , 1) * tyyddlO/rho (kv , j v , 1) -rhov (kv , j  v , 1) * tyydl/rho (kv , j  v 

3  ,1) **2+rhou (kv , j v , 1) *txyddlO/rho (kv , j  v , 1) -rhou (kv , j v , 1) *txydl/r 

4  ho (kv , j v , 1) **2+txyd0/rho (kv , j v , 1) -txy/rho (kv , j v , 1) **2 

byddl 1  =  rrmu (kv , j  v) * (dezddl 1 *  zty (kv , j  v , 1) +deeddl 1 *  ety (kv,jv,l))*g 
1  aoma/pr+2*txydl/rho(kv, jv,l) 

byddl2  =  tyydl/rho(kv, jv, 1) +txyd2/rho(kv, jv, 1) 

bydd20  =  (dezd2*zty(kv, jv, l)+deed2*ety (kv, jv,l))*mudO*gamma/pr+rrm 

1  u (kv , j  v) * (dezdd20*  zty (kv , j  v , 1) +deedd20*ety (kv , j  v , 1) ) *gamma/pr+r 

2  hov (kv , j  v , 1) *tyydd20/rho (kv , j v , 1) -rhov (kv , j v , 1) *tyyd2/rho (kv , j v 

3  , 1) **2+tyyd0/rho(kv , j v, 1) -tyy/rho (kv , jv, 1) **2+rhou(kv, j v, 1) *txy 

4  dd20/rho (kv , j  v , 1) -rhou (kv , j  v , 1) *txyd2/rho (kv , j  v , 1) **2 
bydd21  =  tyydl/rho(kv, jv, 1) +txyd2/rho(kv, jv, 1) 

bydd22  =  rrmu (kv, jv) +(dezdd22* zty (kv, jv, l)+deedd22*ety(kv, jv, l))*g 
1  amma/pr+2*tyyd2/rho(kv, jv,l) 

bydd30  =  (dezd3*zty (kv , j  v , 1) +deed3+ety (kv , j  v , 1) ) *mudO*gamma/pr+rrm 
1  u (kv , j  v) * (dezdd30*zty (kv , j  v , 1) +deedd30*ety (kv , j v , 1) ) *gamma/ pr 


byddOO  =  (dez*zty  (kv, j v,  1)  +dee*ety (kv, jv ,  1) ) *mudd00*gamaa/pr+2*  (de 
zdO*  zty (kv , j  v , 1) +deedO*ety (kv , j  v , 1) ) *mudO*gamma/pr+rrmu (kv , j  v) * 

2  (dezddOO.zty (kv , j v , 1) +deeddOO*ety (kv , j  v , 1) ) *gamma/pr +rhov (kv , j  v 

3  1) *tyyddOO/rho(kv, j v, 1) -2*rhov (kv, j v, 1) *tyydO/rho(kv, jv, 1)  **2+ 

4  2*rhov(kv , jv, 1) *tyy/rho(kv , j v . I) **3+rhou(kv, jv, 1) *txyddOO/rho(k 
l  Y>  Jv *  l)-2*rhou(kv,  jv,  1)  *txydO/rho(kv, j v, 1)  **2+2*rhou(kv, jv, 1)  *t 
6  xy/rho(kv, jv,l)  **3 

by ddOl  =  (dezdl*zty (kv , j v , 1) +deedl*ety (kv , j  v , 1) ) *mudO*gamma/pr+rrm 

1  a (kv  j v) * (dezdd01*zty (kv , j  v , 1) +deedd01*ety (kv , j v , 1) ) *gamma/pr+r 

2  hov(kv)]v,l)*tyydd01/rho(kv,jv,l)-rhov(kv,jv,l)*tyydl/rho(kv,jv 

3  , 1) **2+rhou(kv, jv, 1) *txydd01/rho(kv , jv, l)-rhou(kv, jv,l) *txydl/r 

4,  /  j '  **2+txyd0/rho (kv i  j  v>  1)  -txy/rho(kv, j v, 1) **2 

bydd02  -  (dezd2* zty (kv , j  v , 1) +deed2*ety (kv , j v , 1) ) *mudO*gamma/pr+rrm 

1  u (kv  j v) * (dezdd02*zty (kv , j v , 1) +deedd02*ety (kv , j v, 1) ) *gamma/pr+r 

2  hov (kv ,  l Y  >  1 )  *  tyydd02/rho  (kv ,  j  v ,  1 )  -rhov  (kv ,  j  v ,  1)  *tyyd2/rho  (kv ,  j  v 

l  ^^/2k/kd-rh?x(kV^  V^1}  " byy /rho  (kv » 3 ' v ,  1)  **2+rhou  (kv ,  j  v ,  1)  *txy 

4,  (kv ,  j  v ,  1 )  -rfaou  (kv ,  j  v ,  1)  *  txyd2/rho  (kv ,  j  v ,  1)  *  *2 

bydd03  -  (fezd3*zty (kv ,  j  v  1) +deed3*ety (kv , j v , 1) ) *mudO*gamma/pr+rrm 
*  j  j  ’ J  (dezdd03*zby  (kv ,  j  v ,  1)  +deedd03*ety  (kv ,  j  v ,  1)  )  *gamma/pr 

byddlO  =  (dezdl*  zty  (kv ,  j  v ,  1)  +deedl*ety  (kv , i v . 1) )  *mudO*gaLa/pr+rrm 

1  u(ky , J v) * (dezddlO*zty (kv , j v , 1) +deeddlO*ety (kv, jv, 1)) *gamma/pr+r 

2  bov(kv,jv,l)*tyyddlO/rho(kv,jv,l)-rhov(kv,jv,l)*tyydl/rho(kv,jv 

3  , 1)  «2+rhou  (kv ,  j  v ,  1)  *txyddlO/rho  (kv ,  j  v ,  1)  -rhou  (kv ,  j  v ,  1)  *txydl/r 

\  v  > 1 )  * *2+txyd0/rho  (kv ,  j v ,  i)  - txy/rho (kv ,  j  v ,  1)  *  *2  * 

byddll  -  rrmu (kv , j  v) * (dezddl 1  *zty  (kv , j v , 1) +deeddll+ety (kv ,  j  v ,  1)  )  *g 
1  amma/pr+2*txydl/rho(kv,jv,l)  '  >}  8 

byddl2  =  tyydl/rho(kv , jv, 1) +txyd2/rho(kv, jv, 1) 

ydd20  (dezd2*zty(kv, jv,l)+deed2*ety(kv, jv,l))*mudO*gamma/pr+rrm 

1  u (kv , j  v) * (dezdd20*zty (kv , j  v , 1) +deedd20*ety (kv , j v , 1) ) *gamma/pr+r 

2  hov (kv , j  v , 1 ) *  tyydd20/ rho (kv , j  v , 1) -rhov (kv , j  v , 1 ) *  tyyd2/rho (kJ , j  v 

4  dd20/S  ‘ jV^} -^M°(kv, j v,  1) * *2+rhou (kv , j v ,  1 ) *t£y 

4,  ( ’/3 *  7  *  l)  "rhoU  (kv » 1 v » 1)  *txyd2/rho  (kv ,  j  v ,  1)  *  *2 

Kjoi  ~  byydi/rho  (ltv ,  j  v ,  1)  +txyd2/ rho  (kv ,  j  v ,  1) 

bydd2 2  =  rrmu (kv  j v) * (dezdd22*zty (kv , j v , 1) +deedd22*ety (kv , j v , 1) ) *g 
1  amma/pr+2*tyyd2/rho(kv, jv,l)  *  S 

bydd30  =  (dezd3*zty (kv , j v , 1) +deed3*ety (kv , j v , 1) ) *mudO*gamma/pr+rrm 
*  U£V’3  y).  *  (d«dd30*zty  (kv ,  j  v ,  1 )  +deedd30*ety  (kv ,  j  v ,  1)  )  *gamma/pr 

yduOO  (dezdO+zty (kv , j  v , 1) +deedO*ety (kv , j v , 1) ) *muuO*gamma/pr+ (de 

1  z*zty (kv  j v , X) +dee*ety (kv , j v , 1) ) *nmduOO*gamma/pr+dezuO*zty (kv , j 

2  v , 1 ) *mudO*gamma/pr+dezduOO*rrmu (kv , j  v) *  zty (kv , j  v , 1 ) *gamma/pr-rh 
ov (kv , j v , 1) *tyyuO/rho (kv , j v , 1) **2+rhov  (kv, j v, 1) *tyyduOO/rho (kv, 

5  /rho (kyh j v  1 J ’ J  V ' *  fcxyu0/ rho (kv , j  v , 1) *  *2+rhou (kv , j  v , 1) *txyduOO 

lbydz?Lvrk(fef°?f5(kV,r^)^eed?:ety(kv'jv'1>^muul*«a™a/Pr+(de 

1  z*zty (kv  jv, 1) +dee*ety (kv , j v , 1) ) ♦mudu01*gamma/pr+dezul*zty (kv, j 

2  v , 1 ) *mudO*gaoma/ pr+dezduOl *  rrmu (kv , j  v) *zty (kv , j  v , 1) *gamma/pr-rh 

3  ov (tv , j., 1) .ty,ul/rho(kv  j,  D ..2*ph0y (kv, jy , 1 j . i,xd!01/rho(ky, 

5  /rho (kv^ j v  ^1) ’ J  T ’ 1  %txyul^rho  Ckv, j v , 1) **2+rhou(kv , j v , 1) *txydu01 

bydu02  =  (dezdO*zty (kv , jv  1) +deedO*ety (kv, j v , 1) ) *muu2*gamma/pr+ (de 

1  z* zty (kv  j  v , 1 ) +dee* ety (kv , j v , 1) ) *nmdu02*gamma/pr+dezu2*zty (kv , j 

2  v , 1) *mudO* gamma/ pr+dezdu02*rrmu(kv, j v) *zty (kv, j v, 1) *gaoma/pr-rh 

3  ov(k^jy-l/^tyyu2/rho(kv,jv,l)**2+rhov(kv,jv,l)*tyydu02/rho(kv, 

5  /rho (kyh j v  i) ’ 3 V ' 1  *txyu2^ rho (kv , j v , 1) **2+rhou (kv , j v , 1) *txydu02 

bydu03  =  dezu3*zty (kv , j  v , 1) *mud0»gamma/pr+dezdu03*rrmu (kv , j v) *zty ( 

1  kv, j v, 1) *gamma/pr  J 

bydulO  =  (dezdl*zty (kv, j v , 1) +deedl*ety (kv, jv , 1)) *muuO*gamma/pr+dez 
1  dulO*rrmu(kv, j v) *zty (kv , j v, 1) *gamma/pr+rhov(kv, jv, 1) *tyydulO/rh 


2  o (kv , j  v , 1) +txyuO/rho (kv , j  v , 1) +rhou (kv ,  j  v ,  1) *txydulO/ rho (kv , j  v , 1 

3  ) 

bydull  =  (dezdl*zty (kv , j  v , 1) +deedl*ety (kv , j v , 1) ) *muul*gamaa/ pr+dez 

1  dull*rrmu(kv, jv)*zty(kv, jv,l)*gamma/pr+rhov(kv, jv,l)*tyydull/rh 

2  o  (kv ,  j  v ,  1) +txyul / rho (kv ,  j  v ,  1) +rhou  (kv , j  v , 1) *txydul 1/rho (kv , j  v , 1 

3  ) 

bydul2  =  (dezdl *zty (kv , j  v , 1) +deedl *ety (kv , j v , 1) ) *muu2*gamma/pr+rho 

1  v (kv , j  v , 1) *tyydul2/rho (kv ,  j  v ,  1) +txyu2/rho (kv ,  j  v ,  1) +rhou (kv , j  v , 1 

2  )*txydul2/rho(kv, jv,l) 

bydu20  =  (dezd2*zty (kv, jv, 1) +deed2*ety (kv, jv, 1)) *muuO*gamma/pr+dez 

1  du20*rrmu (kv , j  v) *zty (kv , j  v , 1) *gamma/ pr+tyyuO/rho (kv , j  v , 1)  +rhov ( 

2  kv , j  v , 1 ) *  tyy du20/ rho (kv , j  v , 1 ) +rhou ( kv , j  v , 1 ) *  txy du20 / rho ( kv , j  v , 1 

3  ) 

bydu21  =  (dezd2*zty (kv, jv , 1) +deed2*ety (kv, j v, 1) ) *muul*ganuna/pr+tyy 

1  ul/rho(kv, jv, l)+rhov(kv, j v, 1) *tyydu21/rho(kv, jv, 1) +rhou(kv, jv, 1 

2  )*txydu21/rho(kv, jv,l) 

bydu22  =  (dezd2*zty (kv , j  v , 1) +deed2*ety (kv , j v, 1) ) *muu2*gamma/ pr+dez 

1  du22*rrmu (kv , j  v) *zty (kv , j  v , 1) +gamma/pr+tyyu2/ rho (kv , j v , 1) +rhov ( 

2  kv ,  j  v , 1 ) *  tyydu22/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1) *txydu22/rho (kv , j  v , 1 

3  ) 

bydu30  =  (dezd3*zty (kv , j v, 1) +deed3*ety (kv , j v, 1) ) *muuO+gamma/pr+dez 
1  du30*rrmu (kv , j  v) *  zty (kv , j  v , 1) *gamma/pr 

bydu31  =  (dezd3*zty(kv, jv,l)+deed3*ety(kv, jv,l))*muul*gamma/pr 
bydu32  =  (dezd3*zty(kv, jv,l)+deed3*ety(kv, jv, 1)) *muu2*ganuna/pr 
bydvOO  =  (dezdO*zty(kv, jv,l)+deedO*ety(kv, jv,l))*muvO*gamma/pr+(de 

1  z*zty(kv,jv,l)  +dee  *  e  ty  (kv ,  j  v ,  1 )  )  t>BudvOO*gamina/ pr +deevO*  ety  (kv ,  j 

2  v,  1)  *mudO*gamma/pr+deedvOO*rrmu(kv, jv) *ety(kv, jv, l)*gamma/pr-rh 

3  ov(kv, jv, 1) *tyyvO/rho(kv, jv,l) **2+rhov(kv, jv, 1) *tyydvOO/rho(kv, 

4  j  v , 1 ) -rhou (kv , j  v , 1 ) ♦ txyvO/rho (kv , j  v , 1 ) *  *2+rhou (kv , j  v , 1 ) * txydvOO 

5  /rho(kv, jv,l) 

bydvOl  =  (dezdO*zty (kv, jv, l)+deedO*ety(kv, jv, 1)) *muvl+gamina/pr+ (de 

1  z*zty (kv , j  v , 1) +dee*ety (kv , j v , 1) ) *mudv01*gamma/ pr+deevl*ety (kv , j 

2  v,  1)  *mud0+gamma/pr+deedv01*rrBm(kv, jv) *ety (kv, jv,l) *gamma/pr-rh 

3  ov(kv, jv, 1) ♦ tyyvl /rho (kv , j  v , 1 ) *  *2+rhov (kv , j  v , 1 ) * tyy dvOl /rho (kv , 

4  jv,l)-rhou(kv, jv,l)*txyvl/rho(kv, jv,l)**2+rhou(kv, jv,l)*txydv01 

5  /rho(kv, jv,l) 

bydv02  =  (dezdO*zty (kv , j  v , 1) +deedO*ety (kv , j v , 1) ) *muv2*gamma/ pr+ (de 

1  z*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *mudv02*gamma/pr+deev2*ety (kv , j 

2  v,  1) *mud0*gamma/pr+deedv02*rrau(kv, j v) *ety (kv, jv, 1) *gamma/pr-rh 

3  ov(kv,jv,l) *tyyv2/ rho (kv , j v , 1) **2+rhov (kv , j  v , 1) *tyydv02/rho (kv , 

4  j  v ,  1 )  -rhou (kv , j  v , 1) * txyv2/rho (kv , j  v , 1 ) **2+rhou (kv , j  v , 1) *txydv02 

5  /rho(kv, jv,l) 

bydv03  =  deev3*ety(kv, jv,l)*mud0*ganuaa/pr+deedv03*rrmu(kv, jv)*ety( 
1  kv, j v, 1) *gamma/pr 

bydvlO  =  (dezdl*zty(kv, jv, l)+deedl*ety(kv, jv,l))*muvO*gamna/pr+dee 

1  dvlO*rrmu (kv , j  v) *ety (kv , j  v , 1) *gamma/pr+rhov (kv , j v , 1) *tyydvlO/rh 

2  o (kv , j v , 1) +txyvO/ rho (kv , j v , 1) +rhou (kv , j v , 1) *txydvlO/ rho (kv , j v , 1 

3  ) 

bydvl 1  =  (dezdl *  zty (kv , j  v , 1 ) +deedl *e ty (kv , j  v , 1 ) ) *muvl *ganuna/pr+dee 

1  dvll*rrmu(kv, jv)*ety(kv, jv,l)*gamma/pr+rhov(kv, jv, 1) *tyydvll/rh 

2  o(kv ,  j v , 1) +txyvl/rho(kv , jv, 1) +rhou(kv , jv, 1) *txydvll/rho(kv , jv , 1 

3  ) 

bydvl2  =  (dezdl * zty (kv , j v, 1) +deedl+ety (kv, jv, 1)) *muv2*gaauna/pr+rho 

1  v(kv, jv, l)*tyydvl2/rho(kv, jv, l)+txyv2/rho(kv, jv, l)+rhou(kv, jv, 1 

2  )*txydvl2/rho(kv, jv,l) 

bydv20  =  (dezd2*zty  (kv, jv, 1) +deed2*ety (kv, jv,l))*muvO*ganuna/pr+dee 

1  dv20*rrinu(Vv>  jy) +ety (kv, jv, 1) *gamma/pr+tyyvO/rho(kv, jv,l)+rhov( 

2  kv , j  v , 1 ) * tyydv20/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1) *txydv20/rho (kv , j  v , 1 

3  ) 


bydv21  =  (dezd2*zty  (kv ,  j  v , 1) +deed2*ety (kv ,  j  v ,  1) ) *muvl *gamma/ pr+tyy 

1  vl/rho(kv, jv,l)+rhov(kv, jv,l)*tyydv21/rho(kv, jv,l)+rhou(kv, jv,l 

2  )*txydv21/rho(kv, jv,l) 

bydv22  =  (dezd2*zty (kv , j  v , 1) +deed2*ety (kv ,  j  v ,  1)  ) *muv2*gamma/pr+dee 

1  dv22*rrmu (kv , j  v) *ety (kv , j  v , 1 ) *gamma/pr+tyy v2/rho (kv , j  v , 1 ) +rhov ( 

2  kv , j  v , 1 ) * tyydv22/rho (kv , j  v , 1 )  + rhou (kv , j  v , 1 ) * txydv22/rho (kv , j  v ,  1 

3  > 

bydv30  =  (dezd3*zty (kv , j  v , 1) +deed3*ety (kv , j  v , 1) ) *muvO*gamma/ pr+dee 
1  dv30*rrmu (kv , j  v) *ety (kv , j  v , 1) *gamma/pr 

bydv31  =  (dezd3*zty(kv, jv,l)+deed3*ety(kv, jv,l))*muvl*gamma/pr 
bydv32  =  (dezd3*zty(kv, jv,l)+deed3*ety(kv, jv,l))*muv2*gamma/pr 
byudOO  =  (dez*zty(kv, jv,l)+dee*ety(kY, jv,l))*muudOO*ganwia/pr+(dezd 

1  0*zty (kv , j v, 1) +deedO*ety (kv, jv, 1)) *muuO*gamnia/pr+dezuO*zty (kv, j 

2  v, 1) *mudO*gamnia/pr+dezudOO*rrmu(kv, jv)*zty(kv, jv, 1) *gamma/pr+rh 

3  ov (kv , j  v , 1) *tyyudOO/rho (kv , j  v , 1) -rhov (kv , j  v , 1) *tyyuO/ rho (kv , j  v , 

4  1) **2+rhou(kv , jv , 1) *txyudOO/rho(kv, jv, l)-rhou(kv, jv, 1) *txyuO/rh 

5  o(kv , jv, 1) **2 

byudOl  =  (dezdl*zty (kv, jv,l)+deedl*ety(kv, jv,l))+muuO*gamma/pr+dez 

1  udOl *rrmu (kv , j  v) +zty (kv , j  v , 1) *gamma/pr+rhov (kv , j v , 1) *tyyud01/rh 

2  o(kv, jv, l)+rhou(kv, jv, 1) *txyud01/rho(kv, jv,l)+txyuO/rho(kv, jv, 1 

3  ) 

byud02  =  (dezd2*zty (kv , j  v , 1) +deed2*ety (kv , j v , 1) ) *muuO*gamma/pr+dez 

1  ud02*rrmu (kv ,jv)*zty(kv,jv,l) *gamma/pr+rhov (kv , j  v , 1 ) *tyyud02/rh 

2  o (kv , j v , 1) +tyyuO/rho (kv , j v , 1) +rhou(kv , j v , 1) *txyud02/rho(kv , j v , 1 

3  ) 

byud03  =  (dezd3*zty (kv , j  v , 1) +deed3*ety (kv , j v , 1) ) *muuO*gamma/pr+dez 
1  ud03*rrmu(kv, jv) *zty(kv, jv, l)*gaoma/pr 
byudlO  =  (dez*zty(kv, jv,l)+dee*ety(kv, jv,l))*muudlO*gamma/pr+(dezd 

1  0*zty (kv , j  v , 1) +deedO*ety (kv , j v , 1) ) +muul*gaoma/pr+dezul *zty (kv , j 

2  v , 1) *mudO*gamma/pr+dezudlO*rrmu (kv , j  v) *zty (kv , j v , 1) *gamma/pr+rh 

3  ov (kv , j  v , 1) *tyyudlO/rho (kv  >  j  v , 1 ) -rhov (kv , j v , 1) *tyyul /rho (kv , j v , 

4  1 )  *  * 2+rhou (kv , j  v , 1 ) * txy udlO/rbo (kv , j  v , 1 ) -rhou (kv , j  v , 1 ) *  txyul /rh 

5  o(kv, jv, 1)**2 

byudl 1  =  (dezdl *zty (kv , j  v , 1) +deedl *ety (kv , j  v , 1) ) *muul *gamma/ pr+dez 

1  udll*rrmu(kv, jv) *zty (kv, jv, 1) *ganuna/pr+rhov(kv, jv, l)*tyyudll/rh 

2  o(kv, jv, 1) +rhou(kv, jv, 1) *txyudll/rho(kv, jv, 1) +txyul/rho(kv, jv, 1 

3  ) 

byudl2  =  (dezd2*zty (kv, jv, 1) +deed2*ety (kv, jv, 1) ) *muul*gamma/pr+rho 

1  v(kv,jv,l) *tyyudl2/rho (kv , j  v , 1 ) +tyyul/rho (kv , j  v , 1) +rhou (kv , j  v , 1 

2  )*txyudl2/rho(kv, jv,l) 

byudl3  =  (dezd3*zty (kv, jv,l)+deed3*ety(kv, jv,l))*muul*gamma/pr 
byud20  =  (dez*zty(kv, jv, 1) +dee*ety (kv, jv,l))*muud20*gamma/pr+(dezd 

1  0*zty(kv, jv, l)+deedO*ety (kv, jv, 1)) *muu2*gamma/pr+dezu2*zty(kv, j 

2  v , 1) ♦mudO*gajwna/ pr+dezud20*rrnu (kv , j v) *zty (kv , j v , 1) *gamma/pr+rh 

3  ov (kv , j  v , 1) *tyyud20/rho (kv , j  v , 1) -rhov (kv , j v , 1) *tyyu2/rho (kv , j  v , 

4  1)  **2+rhou(kv , j v , 1) *txyud20/ rho (kv , j v , 1) -rhou (kv , j v , 1) *txyu2/rh 

5  o(kv, jv, 1) **2 

byud21  =  (dezdl *zty (kv , j v, 1) +deedl*ety (kv, jv, 1) ) *Buu2*gamma/pr+rho 

1  v(kv,jv,l) * tyy ud21 /rho (kv,jv,l)+rhou(kv,jv,l) * txyud21/rho (kv , j  v 

2  , 1) +txyu2/rho(kv, jv, 1) 

byud22  =  (dezd2*zty(kv, j v, 1) +deed2*ety (kv, jv, 1) ) *muu2*gamma/pr+dez 

1  ud22*rrmu  (kv ,  j  v)  *zty  (kv ,  j  v ,  1)  *6cuiiiBa/pr+rhov  (kv ,  j  v ,  1)  *tyyud22/rh 

2  o(kv, j v, 1) ♦tyyu2/rho(kv , j v , 1) +rhou(kv, j v, 1) *txyud22/rho(kv, j v, 1 

3  ) 

byud23  =  (dezd3*zty (kv, j v, 1) +deed3*ety (kv, jv, 1) ) *muu2*gamma/pr 
byud30  =  dezu3*zty (kv, j v , 1) *mud0*gamina/pr+dezud30+rrmu(kv, j v) *zty ( 
1  kv , j v , 1) *gamma/pr 

byvdOO  =  (dez*zty  (kv,  j v ,  1) +dee*ety  (kv ,  j v ,  1) )  *nmvdOO*gajnma/pr+ (dezd 


1  0*zty (kv, j v, 1) +deedO*ety (kv , jv , 1) ) *muvO*gamma/pr+deevO*ety (kv, j 
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2  v, 1) +mudO*gamma/pr+deevdOO*rriDu(kv, j v) *ety (kv, j  v, 1) *gamma/pr+rh 

3  ov (kv , j  v , 1 ) * ty y vdOO/rho (kv , j  v , 1 ) -rhov (kv , j  v , 1 ) *  tyy vO/rho (kv , j  v , 

4  1) **2+rhou(kv, jv, 1) *txyvdOO/rho(kv, jv, l)-rhou(kv, jv, l)*txyvO/rh 

5  o(kv, jv,l)**2 

byvdOl  =  (dezdl *zty (kv , j  v , 1) +deedl*ety (kv , j v , 1) ) *muvO*gamma/ pr+dee 

1  vd01*rrmu(kv , j  v) *ety (kv , jv , 1) *gamma/pr+rhov(kv, jv, 1) *tyyvd01/rh 

2  o (kv , j  v , 1) +rhou (kv , j  v , 1) *txy vdOl / rho (kv , j  v , 1) +txy vO/ rho (kv , j  v , 1 

3  ) 

byvd02  =  (dezd2*  zty  (kv , j  v , 1) +deed2*ety (kv , j  v , 1) ) *muvO*gamma/ pr+dee 

1  vd02*rrmu (kv , j  v) *ety (kv , j  v , 1 ) *gamma/pr+rhov (kv , j  v , 1) * tyy vd02/ rh 

2  o (kv , j  v , 1) + tyy vO/rho (kv ,  j  v , 1) +rhou (kv , j v , 1) *txyvd02/ rho (kv , j  v , 1 

3  ) 

byvd03  =  (dezd3*zty (kv , j v , 1) +deed3*ety (kv , j v , 1) ) *muvO*gamma/pr+dee 
1  vd03*rrmu (kv , j  v) *ety (kv , j  v , 1) *gamma / pr 

byvdlO  =  (dez*zty (kv ,  j  v , 1) +dee*ety (kv , j  v , 1) ) *muvdlO*gamma/ pr+ (dezd 

1  0*zty (kv, jv, 1) +deedO*ety (kv, jv, 1)) *muvl*gamma/pr+deevl*ety (kv , j 

2  v,  1)  *mudO*gamma/pr+deevdlO*rrmu(kv, jv) *ety (kv, jv, 1) +gainma/pr+rh 

3  ov (kv , j  v , 1) *tyyvdlO/ rho 'kv , j v , 1) -rhov (kv , j v , 1) * tyyvl / rho (kv , j  v , 

4  1) **2+rhou (kv , j  v , 1) *txyvdlO/rho (kv , j v , 1) -rhou (kv , j v , 1) *txy vl/rh 

5  o(kv , jv, 1) **2 

byvdll  =  (dezdl*zty(kv, jv, l)+deedl*ety(kv, jv, l))+muvl+gaauna/pr+dee 

1  vdll*rrmu(kv , j v) *ety (kv , j v , 1) *gamma/pr+rhov (kv , j v, 1) *tyyvdll/rh 

2  o(kv, jv, 1) +rhou(kv, j v, 1) *txyvdll/rho(kv, jv, l)+txyvl/rho(kv, jv, 1 

3  ) 

byvdl2  =  (dezd2*zty(kv, jv,l)+deed2*ety(kv, jv,l))*muvl*gamma/pr+rho 

1  v(kv, jv, l)*tyyvdl2/rho(kv, jv,l)+tyyvl/rho(kv, jv, l)+rhou(kv, jv, 1 

2  )*txyvdl2/rho(kv, jv,l) 

byvdl3  =  (dezd3*zty(kv, jv,l)+deed3*ety(kv, jY,l))*muvl*ganuna/pr 
byvd20  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muvd20*gamma/ pr+ (dezd 

1  0*zty (kv , j  v , 1 ) +deedU*ety (kv , j  v , 1) ) *nmv2*gamma/pr+deev2*ety (kv , j 

2  v , 1) *mud0*gamma/pr+deevd20*rrmu (kv , j  v) *ety (kv , j v . 1) *gamma/pr +rh 

3  ov (kv , j v , 1 ) +tyyvd20/rho (kv , j  v , 1) -rhov (kv , j  v , 1) *ty yv2/ rho (kv , j  v , 

4  1 ) *  *2+rhou (kv , j  v , 1) *txy vd20/rho (kv , j  v , 1) -rhou (kv , j  v , 1 ) * txy v2/ rh 

5  o(kv, jv, 1) **2 

byvd21  =  (dezdl*zty (kv, jv, 1) +deedl*ety (kv, jv, 1)) *muv2*gamma/pr+rho 

1  v(kv,jv,l)*  tyy vd21 /rho (kv , j  v , 1) +rhou (kv , j  v , 1 ) *  txy vd21 / rho (kv , j  v 

2  , 1) +txyv2/rho(kv, jv,l) 

byvd22  =  (dezd2*zty (kv , j  v , 1) +deed2*ety (kv , j v , 1) ) *muv2*gamma/ pr+dee 

1  vd22+rrmu (kv , j  v) *ety (kv , j  v , 1) *gaoma/pr+rhov (kv , j  v , 1 ) *tyyvd22/rh 

2  o (kv , j v , 1) +tyyv2/rho (kv , j  v , 1) +rhou (kv , j v , 1) *txy vd22/ rho (kv , j  v , 1 

3  ) 

byvd23  =  (dezd3*zty (kv, jv,l)+deed3*ety(kv, jv, 1)) *muv2*gamma/pr 
byvd30  =  deev3*ety (kv, jv, 1) *mud0*gamma/pr+deevd30*rrmu(kv, jv) *ety ( 
1  kv, jv,l)*gamma/pr 

byuuOO  =  (dez*zty  (kv,  jv,  1) +dee*ety  (kv,  jv,  1)  )  *muuu00*gaiiuna/pr+2*dez 

1  uO*zty(kv, jv, l)*muuO*gamoa/pr+rhov(kv, jv, l)*tyyuuOO/rho(kv, jv, 1 

2  ) +rhou(kv, jv , 1) *txyuuOO/rho(kv, jv, 1) 

byuuOl  =  (dez*zty (kv, jv, 1) +dee*ety(kv, jv , 1) ) *muuu01*gamma/pr+dezu0 

1  *zty (kv, jv, 1) *muul+gamma/pr+dezul*zty (kv, jv, 1) *nuuO*gamma/pr+rh 

2  ov(kv, j v , 1) *tyyuu01/rho(kv , jv, 1) +rhou(kv, jv, 1) *txyuu01/rho(kv , j 

3  v,l) 

byuu02  =  (dez*zty (kv, j v , 1) +dee*ety (kv, j v , 1) ) *muuu02*gamma/ pr+dezuO 

1  *zty (kv, j v , 1) *muu2*ganuDa/pr+dezu2*zty (kv, j v, 1) *muuO+gamma/pr+rh 

2  ov (kv , j v , 1) +tyyuu02/rho(kv, j v, 1) +rhou(kv , j v , 1) *txyuu02/rho(kv , j 

3  v,l) 

byuu03  =  dezu3*zty(kv, jv, 1) *muuO*gamma/pr 

byuulO  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muuulO*gamma/pr+dezuO 

1  *zty (kv , j v , 1) *muul*gamma/pr+dezul*zty (kv , j v , 1) *muuO+£amma/ pr+rh 

2  ov(kv , j  v , 1) *tyyuulO/rho(kv , j v , 1) +rhou(kv , jv , 1) +txyuu 10/ rho(kv , j 
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3  v,l)  .  0  . 

byuull  =  (dez+zty (kv , j v, 1) +dee+ety (kv, j v, 1) ) ♦muuull+gamma/pr+2+dez 

1  ul +zty (kv , j  v , 1) ♦muul+gamma/pr+rhov (kv , j v , 1) ♦tyyuull/rho (kv , j v , 1 

2  )+rhou(kv, jv,l)*txyuull/rho(kv, jv,l) 

byuul2  =  (dez+zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) ♦muuul2+gamma/pr+dezul 

1  +zty (kv, jv , 1) *muu2*gamma/pr+dezu2*zty (kv ,  jv, 1) ♦muul ♦gamma/pr+rh 

2  ov (kv , j  v , 1) ♦tvyuul2/rho (kv , j  v , 1) +rhou (kv , j v , 1) *txyuul2/rho (kv , j 

3  V’X)  .  „ 

byuul3  =  dezu3+zty (kv, jv, 1) ♦muul+gamma/pr 

byuu20  =  (dez+zty (kv , j  v , 1) +dee*ety (kv , j v , 1) ) ♦muuu20+gamma/pr+dezu0 

1  *zty (kv , j v , 1) ♦muu2+gamma/pr+dezu2+zty (kv , j v , 1) ♦muuO+gamma/pr+rh 

2  ov (kv , j  v , 1 ) ♦  tyy uu20/rho (kv , j  v , 1) +rhou (kv , j  v , 1) ♦txyuu20/ rho (kv , j 

3  v,  1) 

byuu21  =  (dez+zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muuu21 ♦gamma/ pr+dezul 

1  ♦ zty (kv , j  v , 1) ♦muu2 ♦gamma/pr+dezu2+ zty (kv , j  v , 1) ♦muul ♦gamma/pr+rh 

2  ov (kv , j  v , 1) ♦tyyuu21/rho (kv , j  v , 1) +rhou (kv , j v , 1) ♦txyuu21/rho (kv , j 

3  v,l) 

byuu22  =  (dez+zty (kv , j  v , 1) +dee«ty (kv , j v , 1) ) ♦muuu22+gamma/pr+2+dez 

1  u2+zty (kv , j  v , 1) ♦muu2*gamma/pr+rhov (kv , j v , 1) ♦tyyuu22/ rho (kv , j v , 1 

2  ) +rhou(kv , j v , 1) ♦txyuu22/rho (kv , j  v , 1) 
byuu23  =  dezu3+zty (kv, jv, 1) ♦muu2^gamma/pr 
byuu30  =  dezu3+zty(kv, jv, 1) ♦muuO*gamma/pr 
byuu31  =  dezu3+zty(kv, jv,l)^muul*gamma/pr 
byuu32  =  dezu3^zty(kv, jv, 1) ♦muu2*gamma/pr 

byuvOO  =  dezuO*zty(kv, jv,l)*muvO+gamma/pr+(dez+zty(kv, jv,l)+dee+et 

1  y (kv , j v , 1) ) ♦muuvOO^gamma/pr+deevO*ety (kv , j v , 1)  ♦muuO+gamma/ pr+rh 

2  ov (kv , j  v , 1 ) ♦tyyuvOO/rho (kv , j v , 1) +rhou (kv , j  v , 1) ♦txyuvOO/rho (kv , j 

3  v,l) 

byuvOl  =  dezuO+zty (kv , j  v , 1) ♦muvl+gamma/pr+ (dez+zty (kv , j v , 1) +dee*et 

1  y (kv , j v , 1) ) ♦muuvOl+gamma/pr+deevl+ety (kv , j ▼ , 1) ♦muuO+gamma/ pr+rh 

2  ov (kv , j v , 1) ♦tyyuvOl/rho (kv , j v , 1) +rhou(kv , j v , 1) ♦txyuvOl/ rho (kv , j 

3  v,l) 

byuv02  =  dezuO+zty (kv , j  v , 1) ♦muv2*gamma/ pr+ (dez+zty (kv , j v , 1) +dee*et 

1  y (kv, jv, 1)) ♦muuv02+gamma/pr+deev2+ety (kv, jv, 1) ♦muuO+gamma/ pr+rh 

2  ov (kv , j  v , 1) ♦tyyuv02/rho (kv , j  v , 1) +rhou (kv , j  v , 1) ♦txyuv02/ rho (kv , j 

3  v,l) 

byuv03  =  deev3+ety (kv, jv,l)+muuO+gamma/pr 

byuvlO  =  dezul+zty(kv, jv,l)+muvO+gamma/pr+(dez+zty(kv, jv  ’)+dee+et 

1  y (kv , j v , 1) ) ♦muuvlO+gamma/ pr+deevO+ety (kv , j v , 1) ♦muul ♦gamma/ pr+rh 

2  ov (kv , j v, 1) ♦tyyuvlO/rho (kv , j v, 1) +rhou(kv , j v , 1) ♦txyuvlO/rho (kv, j 

3  v,l) 

byuvll  =  dezul+zty(kv, jv, 1) ♦muvl+gamma/pr+(dez^zty(kv, jv, 1) +dee^et 

1  y (kv, jv, 1)) ♦muuvll+gamma/pr+deevl+ety (kv, jv , 1) ♦muul ♦gamma/pr+rh 

2  ov (kv , j  v , 1 ) ♦ tyyuvl 1/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) ♦ txyuvl 1/rho (kv , j 

3  v,l) 

byuvl2  =  dezul+zty (kv , j v , 1) ♦muv2+gamma/pr+ (dez+zty (kv , jv, 1) +dee+et 

1  y (kv, j v, 1) ) ♦muuvl2+gamma/pr +deev2+ ety (kv , j  v , 1 ) ♦muul ♦gamma/pr+rh 

2  ov (kv , j  v , 1) ♦tyyuvl2/rho (kv , j  v , 1) +rhou (kv , j v , 1) ♦txyuvl2/rbo (kv , j 

3  v,l) 

byuvl3  =  deev3+ety(kv, jv, 1) ♦muul ♦gamma/ pr 

byuv20  =  dezu2+zty (kv , j  v , 1) ♦muvO+gamma/pr+ (dez+zty (kv , j v , 1) +dee+et 

1  y (kv , j  v , 1) ) ♦muuv20+gamma/pr+deev0+ ety (kv , j  v , 1) ♦muu2^gamma/pr+rh 

2  ov (kv , j  v , 1) ♦ tyyuv20/rho (kv , j  v , 1) +rhou (kv , j v , 1) ♦txyuv20/rho (kv , j 

3  v,l) 

byuv21  =  dezu2+zty (kv , j  v , 1) ♦muvl ♦gamma/pr+ (dez+zty (kv , j  v , 1) +dee+et 

1  y (kv , j  v , 1) ) ♦muuv21+gamma/pr+deevl+ety (kv , j v , 1) ♦muu2+gamma/ pr+rh 

2  ov (kv , j  v , 1 ) ♦tyyuv21/rho (kv , j v , 1) +rhou (kv , j v , 1) ♦txyuv21/rho (kv , j 

3  v ,  1) 

byuv22  =  dezu2+zty (kv, jv , 1) ♦muv2+gamma/pr+ (dez+zty (kv , j v , 1) +dee+et 


1  y (kv , j  v , 1) ) *muuv22*gamma/pr+deev2*ety (kv , j  v , 1) +muu2*gamaa/ pr+rh 

2  ov (kv , j  v , 1) *tyyuv22/rho (kv , j v , 1) +rhou (kv ,  j  v ,  1) *txyuv22 / rho (kv , j 

3  v,l) 

byuv23  =  deev3*ety(kv, jv,l)*muu2*gamma/pr 
byuv30  =  dezu3*zty (kv, jv, l)*muvO*gamma/pr 
byuv31  =  dezu3*zty(kv, jv,l)*muvl*gamma/pr 
byuv32  =  dezu3*zty(kv, jv,l)*muv2*gamma/pr 

byvuOO  =  (dez*zty(kv, jv,l)+dee*ety(kv, jv,l))*muvuOO*gamma/pr+dezuO 

1  *zty (kv , j  v , 1) *muvO*gamma/pr+deevO*ety (kv , j  v , 1) *auuO*gamma/ pr+rh 

2  ov (kv , j  v , 1) *tyy vuOO/ rho (kv , j  v , 1) +rhou (kv , j v , 1) *txyvuOO/ rho (kv , j 

3  v,l) 

byvuOl  =  (dez*zty (kv , j v , 1) +dee+ety (kv, j v , 1) ) *muvu01*gamma/pr+dezul 

1  *zty (kv , j  v , 1) *muvO*gamma/pr+deevO*ety (kv , j  v , 1) *muul *gamma/ pr+rh 

2  ov (kv , j  v , 1) *tyyvu01/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *fcxy vuOl/rho (kv , j 

3  v,l) 

byvu02  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muvu02*gamma/pr+dezu2 

1  *zty (kv , j  v , 1) *muvO*gamma/pr +deeyO*ety (kv , j  v , 1) *muu2*gamma/ pr+rh 

2  ov (kv , j  v , 1) * tyyvu02/rho (kv , j  v , 1) +rhou (kv , j v , 1) *txy vu02/rho (kv , j 

3  v,l) 

byvu03  =  dezu3*zty(kv, jv, 1) *muvO*gamma/pr 

byvulO  =  (dez+zty(kv, jv, 1) +dee*ety (kv, jv, 1)) *muvulO*gamma/pr+dezuO 

1  *zty(kv,  jv,l)*muvi*gaimiia/pr+deevl^ety  (kv,  jv,l)*muuO*gamma/  pr+rh 

2  ov (kv , j  v , 1) *tyyvulO/rho (kv , j  v , 1) +rhou (kv , j v , 1) *txyvulO/ rho (kv , j 

3  v,l) 

byvull  =  (dez*zty (kv , j  v , 1) +dee*ety (kv , j  v , 1) ) *muvull*gamma/pr+dezul 

1  *zty (kv , j v , 1) *muvl*gamma/pr+deeYl*ety (kv , j v , 1) *muul*gamma/pr+rh 

2  ov (kv , j v , 1) *tyyvull/rho (kv , j v , 1) +rhou (kv , j v , 1) *txyvull/ rho (kv , j 

3  v,l) 

byvul2  =  (dez*zty(kv, jv,l)+dee*ety(kv, jv,l))*muvul2*ganuna/pr+dezu2 

1  +zty (kv , j v , 1) *muvl*gamma/pr+deevl*ety (kv, j v , 1) *muu2*gamma/pr+rh 

2  ov (kv , j  v , 1) *tyyvul2/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txyvul2/rho (kv , j 

3  v,l) 

byvul3  =  dezu3*zty(kv, jv,l)*muvl*ganuaa/pr 

byvu20  =  (dez+zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muvu20+ganuna/ pr+dezuO 

1  *zty (kv , j v , 1) *muv2*gamma/ pr+deev2*ety (kv , j v , 1) *muuO*gamma/ pr+rh 

2  ov(kv, jv, 1) * tyy vu20/rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) *txy vu20/ rho (kv , j 

3  v,l) 

byvu21  =  (dez+zfcy (kv , j  v , 1) +dee*ety (kv , j v , 1) ) *muvu21*gamma/pr+dezul 

1  *zty (kv , j v , 1) *muv2*gamma/ pr+deev2*ety (kv , j v , 1) *muul*ganmia/ pr+rh 

2  ov(kv, j v, 1) *tyyvu21/rho (kv, jv, 1) +rhou (kv, jv, 1) *txyvu21/rho(kv, j 

3  v,l) 

byvu22  =  (dez*zty(kv, jv,l)+dee*ety(kv, jv,l))*muvu22*gamma/pr+dezu2 

1  *zty (kv , j  v , 1) *muv2*gamma/ pr+deev2*ety (kv , j v , 1) *muu2*gamma/pr+rh 

2  ov (kv , j  v , 1 ) *tyy vu22/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txyvu22/rho (kv , j 

3  v>1) 

byvu23  =  dezu3*zty (kv, jv, 1) *muv2*gamma/pr 
byva30  =  deev3*ety(kv,  jv,l)*muuO*gaaima/pr 
byvu31  =  deev3*ety(kv, jv, 1) *muul+gaama/pr 
byvu32  =  deev3*ety (ky, jv, 1) *muu2* gamma/ pr 

byvvOO  =  (dez*zty(kv, jv,l)+dee*ety(kv, jv,l))*muvv00*gamma/pr+2*dee 

1  vO+ety (kv , jv , 1) *muvO*gamma/pr+rhov (kv , jv, 1) *tyyvvOO/rho(kv, j v, 1 

2  ) +rhou (kv , j  v , 1) *fcxy vvOO/rho (kv , j  v , 1 ) 

byvvOl  =  (dez*zty(ky, jv, 1) +dee*ety (kv, jv,l))*muvv01*gamma/pr+deev0 

1  *ety (kv , j v , 1) *muvl*gamma/ pr+deevl*ety (kv , j v , 1) *muvO*gamma/pr+rh 

2  ov (kv , j  v , 1 ) * tyyvvOl / rho (kv , j  v , 1 ) +rhou (kv , j  v , 1 ) + txy vvOl / rho (kv , j 

3  v,l) 

byvv02  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muvv02+gamma/ pr+deevO 

1  *ety(kv, jv, 1) *muv2*gamma/pr+deev2*ety(kv, jv,l)*muvO*gamma/pr+rh 

2  ov ( kv , j  v , 1 ) *  tyy vv02 / rho(kv,jv,l)+rhou(kv,jv,l)*  txy vv02/rho ( kv , j 


3  v»!) 

byvv03  =  deev3*  ety (kv , j  v , 1 ) *auvO*gaaaa/pr 

byvvlO  =  (dez*zty(ky, jv,l)+dee*ety(kv, jv,l))*BuvvlO*gaaaa/pr+deevO 

1  *ety (kv , j  v , 1) *auvl *gaaaa/pr+deevl*ety (kv , j v , 1) *auvO*gamaa/pr+rh 

2  ov  (kv ,  j  v ,  1 ) *tyyvvlO/rho (kv , j  v , 1) +rhou (kv , j  v , 1) *txyvvlO/rho (kv , j 

3  v,l) 

byvvll  =  (dez*zty (kv , jv , 1) +dee*ety (kv , jv, 1)) *auvvll*gamaa/pr+2*dee 

1  vl^ety  (kv ,  jv,  1) *auvl*gamaa/pr+rhov(kv, jv, 1) *tyywll/rho(kv,  jv,  1 

2  ) +rhou (kv , j  v , 1) *txy vvl 1 /rho (kv , j  v , 1) 

byvvl2  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muvvl2*gamma/pr+deevl 

1  *ety (kv , j v, 1) *muv2*gamma/pr+deev2*ety (kv, jv, 1) *auvl*gamaa/pr+rh 

2  ov (kv ,  j  v ,  1) *tyyvvl2/ rho (kv , j v , 1) +rhou(kv , j v , 1) *txyvvl2/rho (kv  j 

3  v,l) 

byvvl3  =  deev3*ety (kv, j v, 1) *auvl*gamaa/pr 

byvv20  =  (dez*zty (kv , j v , 1) +dee*ety (kv , j v , 1) ) *muvv20+gamma/pr+deev0 
■  *ety  (kv , j  v , 1) *auv2*gaama/ pr+deev2*ety (kv , j  v , 1) *auvO*gaaaa/pr+rh 

2  ov (kv , j  v , 1) *tyy vv20/ rho (kv  , j  v , 1) +rhou (kv , j v , 1) *txyvv20/rho (kv , j 

3  v,l) 

byvv21  =  (dez*zty (kv, j v, 1) +dee*ety (kv, jv, 1)) *auvv21*gaaaa/pr+deevl 
!  *ety(kv , jv, I)*auv2*gaaaa/pr+deev2*ety (kv, jv,l)*auvl*gamma/pr+rh 

2  ov(kv, jv,l)*tyyvv21/rho(kv, jv,l)+rhou(kv, jv,l)*txyvv21/rho(kv, j 

3  v,l) 

byvv22  =  (dez*zty(kv, jv,l)+dee*ety(kv, jv,l))*auvv22*gaaaa/pr+2*dee 

1  v2*efcy(kv, jv, l)*auv2*gaaaa/pr+rhov(kv, jv, l)+tyyvv22/rho(kv, jv, 1 

2  ) +rhou (kv , j  v , 1) *txyvv22/ rho (kv ,  j  v ,  1) 
byw23  =  deev3*ety  (kv ,  j  v ,  1)  *auv2*gamaa/pr 
byvv30  —  deev3*ety (kv, jv, 1) *auvO*gaaaa/pr 
byw31  =  deev3*ety(kv,  jv,l)  *muvl+gamaa/pr 
byvv32  =  deev3*ety  (kv, jv, 1) *auv2*gaaaa/pr 


fp(0,0)  =  caudO*rho(kv, jv,l)/rdj(kv,jv)+cau/rdj(kv,jv) 
fp(0,l)  =  caudl*rho(kv, jv,l)/rdj (kv, jv) 
fp(0,2)  =  caud2*rho(kv, jv,l)/rdj (kv, jv) 
fp(0,3)  =  0 

f p (1 ,0)  =  (-zty(kv,jv,l) *txydO+ztx (kv, j v, 1) * (pdO-txxdO) +caudO*rhou 
1  (kv, jv,l))/rdj (kv, jv) 

f p(l , 1)  =  (-zty (kv , j v , 1) *txydl+ztx(kv , j v, 1) * (pdl-txxdl) +caudl*rhou 
1  (kv, jv,l)+cau)/rdj(kv, jv) 

f p (1 , 2)  =  (-zty (kv , j v , 1) *txyd2+ztx (kv , j v , 1) * (pd2-txxd2) +caud2*rhou 
1  (kv, jv,l))/rdj (kv, jv) 
fp(l,3)  =  ztx(kv, jv,l)*pd3/rdj (kv, jv) 

f p(2 ,0)  =  (zty (kv , j v , 1) * (pdO-tyydO) -ztx(kv , j v , 1) *txydO+caudO*rhov ( 
1  kv, jv,l))/rdj (kv, jv) 

f p (2,1)  =  (zty (kv , j v , l) * (pdl-tyydl) -ztx (kv , j v , 1) *txydl+caudl*rhov ( 
1  kv, jv,l))/rdj (kv, jv) 

fp(2,2)  =  (zty(kv, jv,l)*(pd2-tyyd2)-ztx(kv, jv,l)*txyd2+caud2*rhov( 
1  kv, jv,l)+cau)/rdj (kv, jv) 
fp(2,3)  =  zty(kv, jv,l)*pd3/rdj (kv, jv) 

f  p (3 , 0)  =  (cau*pdO+caudO* (p+rhoe (kv , j  v , 1 ) ) -bydO*zty (kv , j  v , 1) -bxdO* 
1  ztx(kv, jv,l))/rdj (kv, jv) 

f p (3 , 1)  =  (cau*pdl+caudl* (p+rhoe (kv , j v , 1) ) -bydl*zty (kv , j v , 1) -bxdl* 
1  ztx  (kv ,  j  v ,  1)  )  / rd  j  (kv ,  j  v) 

fp(3,2)  =  (cau*pd2+caud2* (p+rhoe (kv, jv,l))-byd2*zty(kv, jv,l)-bxd2* 
1  ztx(kv, jv,l))/rdj (kv, jv) 

fp(3,3)  =  (cau*(pd3+l)-byd3*zty(kv, jv,l)-bxd3*ztx(kv, jv,l))/rdj (kv 

1  .jv) 

fu(0,0)  =  0 
fu(0,l)  =  0 
fu(0,2)  =  0 
fu(0,3)  =  0 

fu(l,0)  =  (-zty(kv, jv,l)*txyuO-ztx(kv, jv,l)*txxuO)/rdj (kv, jv) 
fu(l,l)  =  (-zty(kv, jv,l)*txyul-ztx(kv, jv,l)*txxul)/rdj (kv, jv) 
fu(l,2)  =  (-zty(kv, jv,l)+txyu2-ztx(kv, jv,l)*txxu2)/rdj(kv,jv) 
fu(l,3)  =0 

fu(2,0)  =  (-zty(kv, jv,l)*tyyuO-ztx(kv, jv,l)*txyuO)/rdj (kv, jv) 
fu(2,l)  =  (-zty(kv, jv,l)*tyyul-ztx(kv, jv,l)*txyul)/rdj (kv, jv) 
fu(2,2)  =  (-zty(kv, jv,l) *tyyu2-ztx(kv, jv,l) *txyu2)/rdj (kv, jv) 
fu(2,3)  =  0 

fu(3,0)  =  (~byuO*zty(kv, jv,l)-bxuO*ztx(kv, jv,l))/rdj (kv, jv) 
fu(3,l)  =  (-byul*zty(kv, jv,l)-bxul*ztx(kv, jv,l))/rdj(kv, jv) 
fu(3,2)  -  (~byu2*zty(kv, jv,l)-bxu2*ztx(kv, jv,l))/rdj (kv, jv) 
fu(3,3)  =  (-byu3*zty(kv, jv,l)-bxu3*ztx(kv, jv,l))/rdj (kv, jv) 
fv(0,0)  =  0 
fv(0, 1)  =  0 
fv(0,2)  =  0 
fv(0,3)  =  0 

fv(l,0)  =  (~zty(kv, jv,l)+txyvO-ztx(kv, jv,l)*txxvO)/rdj (kv, jv) 
fv(l,l)  =  (-zty(kv, jv,l)+txyvl-ztx(kv, jv,l)*txxvl)/rdj (kv, jv) 
fv(l,2)  =  (-zty(kv, jv,l)*txyv2-ztx(kv, jv,l)*txxv2)/rdj (kv, jv) 
fv(l ,3)  =  0 

fv(2,0)  =  (-zty(kv, jv,l)+tyyvO-ztx(kv, jv,l)*txyvO)/rdj (kv, jv) 
fv(2,l)  =  (-zty(kv, jv,l)*tyyvl-ztx(kv, jv,l)*txyvl)/rdj (kv, jv) 
fv(2,2)  =  (-zty(kv, jv, 1) *tyyv2-ztx(kv, jv,l)*txyv2)/rdj(kv, jv) 
fv( 2,3)  =  0 

fv(3,0)  =  (-byvO*zty(kv, jv, 1) -bxvO*ztx(kv, jv,l))/rdj (kv, jv) 
fv(3,l)  =  (-byvl*zty(kv, jv,l)-bxvl*ztx(kv, jv,l))/rdj (kv, jv) 
fv(3,2)  =  (-byv2*zty(kv, jv,l)-bxv2*ztx(kv, jv,l))/rdj (kv, jv) 
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fv(3,3)  =  (-byv3*zty(kv, jv, l)-bxv3*ztx(kv, jv,l))/rdj (kv, jv) 
fpp(0,0,0)  =  cauddOO*rho(kv, jv,l)/rdj (kv, jv)+2*caud0/rdj (kv, jv) 
f Pp(0  jO, 1)  =  caudd01*rho(kv, jv,l)/rdj (kv, jv)+caudl/rdj (kv, jv) 
fpp(0,0,2)  =  caudd02*rho(kv, jv,l)/rdj (kr, jv)+caud2/rdj (kr, jv) 
fpp(0,0,3)  =0 

fpp(0,l,0)  =  cauddlO*rho(kv, jv, l)/rdj (kv, jv)+caudl/rdj (kr, jv) 
fpp(0,l,l)  =0 
fpp(0,l,2)  =  0 
fpp(0,l,3)  =  0 

fpp(0,2,0)  =  caudd20*rho(kv, jv,l)/rdj (kv, jv)+caud2/rdj (kv, jv) 

fpp(0,2,l)  =  0 

fpp (0,2,2)  =  0 

fpp(0,2,3)  =  0 

fpp (0,3,0)  =  0 

fpp (0,3,1)  =  0 

fpp (0,3, 2)  a  0 

fPP(0,3,3)  =  0 

fpp(1.0,0)  =  (-zty (kv , j  v , 1) *txyddOO+ztx (kv , j v, 1) * (pddOO-txxddOO) +c 
1  audd00*rhou(kv, jv,l))/rdj (kv, jv) 

fpp(l,0,l)  =  (-zty (kv , j  v , 1) *txydd01+ztx (kv , j v , 1) * (pddOl-txxddOl) +c 
1  audd01*rhou(kv, jv,l)+caudO)/rdj (kv, jv) 

fpp (1 ,0,2)  a  (-zty (kv, jv, 1) *txydd02+ztx(kv, jv, 1) * (pdd02-txxdd02Hc 
1  audd02*rhou(kv, jv,l))/rdj (kv, jv) 
fpp(l,0,3)  =  0 

fpp (1,1,0)  =  (-zty (kv , j v , 1) *txyddlO+ztx (kv, j v, 1) * (pddlO-txxddlO) +c 
1  auddlO*rhou (kv , j  v , 1) +caudO) /rd j (kv, jv) 

fpp(l»l»l)  ~  (ztx(kv, jv, l)*pddll+2*caudl)/rdj (kv, jv) 
fpp (1.1,2)  *  catid2/rdj (kv,  jv) 
fpp(l,l,3)  a  0 

fpp(l,2,0)  =  (-zty (kv , jv , 1) *txydd20+ztx(kv, jv, 1) * (pdd20-txxdd20) +c 
1  audd20*rhou(kv, jv,l))/rdj (kv, jv) 
fpp (1,2,1)  a  caud2/rdj (kv, jv) 
fpp (1,2, 2)  a  ztx(kv, jv,l)*pdd22/rdj (kv, jv) 
fpp(l,2,3)  a  o 
fPP(l ,3,0)  a  o 
fPP(l»3,l)  a  o 
fpp (1,3, 2)  a  0 
fpp(l,3,3)  =  0 

fpp(2,0,0)  a  (zty(kv, jv,l)*(pddOO-tyyddOO)-ztx(kv,jv,l)*txyddOO+ca 
1  uddOO*rhov(kv, jv,l))/rdj (kv, jv) 

fpp (2,0,1)  a  (zty (kv , j v , 1) * (pddOl-tyyddOl) -ztx (kv, j v, 1) *txydd01+ca 
1  udd01*rhov(kv, jv,l))/rdj (kv, jv) 

fpp (2, 0,2)  =  (zty (kv , j  v , 1) * (pdd02-tyydd02) -ztx (kv , j  v , 1) *txydd02+ca 
1  udd02*rhov (kv , j  v , 1) +caudO) /rd j (kv , j  v) 

fpp(2,0,3)  a  0 

fpp (2,1,0)  a  (zty (kv , j v , 1) * (pddlO-tyyddlO) -ztx (kv , j v , 1) * txyddlO+ca 
1  uddlO*rhov (kv , jv,l))/rdj (kv, jv) 
fpp (2, 1,1)  =  zty(kv, jv,l)*pddll/rdj (kv, jv) 
fpp(2,l,2)  a  caudl/rdj (kv,jv) 
fpp(2,l,3)  a  0 

fpp (2 , 2 ,0)  a  (zty (kv , j v , 1) * (pdd20-tyydd20) -ztx (kv , j v , 1) *txydd20+ca 
1  udd20*rhov(kv, jv,l)+caud0) /rdj (kv, jv) 
fpp (2, 2,1)  a  caudl/rdj (kv,jv) 

fpp (2, 2, 2)  =  (zty (kv , j  v , 1 ) *pdd22+2*caud2) /rdj (kv , j  v) 
fpp (2, 2, 3)  =  0 
fpp(2,3,0)  =  0 

fpp (2, 3,1)  a  0 
fpp (2, 3, 2)  =  0 
fpp (2, 3, 3)  a  0 


fpp(3,0,0)  =  (cau*pdd00+2*caud0*pd0+caudd00*(p+rhoe(kv, jv,l))-bydd 
1  00*ety(kv, jv,l)-bxddOO**tx(kv, jv,l))/rdj (kv, jv) 
fpp(3,0,l)  =  (cau*pdd01+caud0*pdl+caudl*pd0+caudd01*(p+rhoe(kv, jv, 
1  1) ) -byddOl *zty (kv , j  v , 1) -bxddOl **tx (kv , j  v , 1) ) /rd j (kv , j  v) 

f pp (3 ,0 , 2)  =  (cau*pdd02+caud0*pd2+caud2*pd0+caudd02* (p+rhoe (kv , jv, 
1  1 ) ) -bydd02*  z ty (kv , j  v , 1) -bxdd02*  ztx (kv , j  v , 1) ) /rd j (kv , j  v) 

f pp (3 , 0 , 3)  =  (caudO* (pd3+l) -bydd03*zty (kv , j v , 1) -bxdd03*ztx (kv , j  v , 1 
1  ))/rdj(kv,jv) 

f pp(3 ,1,0)  =  (cau*pddlO+caudO*pdl+caudl*pdO+cauddlO* (p+rhoe (kv, j v, 
1  1)  ) -byddlO*zty (kv , j  v , 1) -bxddlO*ztx (kv , j v , 1) ) / rd j (kv , j  v) 

fpp(3, 1,1)  =  (cau*pddll+2*caudl*pdl-byddll*zty(kv, jv,l)-bxddll*ztx 
1  (kv, jv,l))/rdj (kv, jv) 

f pp (3 , 1 , 2)  =  (caudl*pd2+caud2*pdl-byddl2*zty (kv , j v , 1) -bxddl2*ztx (k 
1  v, jv,l))/rdj(kv,jv) 
fpp(3,l,3)  =  caudl*(pd3+l)/rdj (kv, jv) 

fpp(3,2,0)  =  (cau+pdd20+caud0+pd2+caud2*pd0+caudd20* (p+rhoe (kv,jv, 
1  1) ) -bydd20*  zty (kv , j v , 1) -bxdd20*ztx (kv , j v , 1) ) /rd j (kv , j v) 

f pp (3 , 2 , 1)  =  (caudl*pd2+caud2*pdl-bydd21*zty (kv , j v , 1) -bxdd21+ztx (k 
1  jv,l))/rdj(kv,jv) 

fpp(3,2,2)  =  (cau*pdd22+2*caud2*pd2-bydd22*zty(kv, jv,l)-bxdd22*ztx 
1  (kv, jv,l))/rdj (kv, jv) 
fpp(3,2,3)  =  caud2*(pd3+l)/rdj (kv, jv) 

f pp (3 , 3 ,0)  =  (caudO* (pd3+l) -bydd30*zty (kv , j v , 1) -bxdd30*ztx (kv , j v , 1 
1  > //rdj (kv, jv) 

fpp(3,3,l)  =  caudl*(pd3+l)/rdj (kv, jv) 

fpp(3,3,2)  =  caud2*(pd3+l)/rdj (kv, jv) 

fpp(3,3,3)  =  0 

fpu(0,0,0)  =  0 

fpu(0,0,l)  =  0 

fpu(0,0,2)  =  0 

fpu(0,0,3)  =  0 

fpu (0,1,0)  =  0 

fPu(0, 1 , 1)  =  0 

fpu(0,l,2)  =  0 

fpu(0,l,3)  =  0 

fpu(0,2,0)  =  0 

fpu(0,2,l)  =  0 

fpu(0,2,2)  =  0 

fpu(0,2,3)  =  0 

fpu(0,3,0)  =  0 

fpu(0,3,l)  =  0 

fpu(0,3,2)  =  0 

fpu (0,3,3)  *  0 

fpu(l,0,0)  =  (~zty(kv, jv,l)*txyduOO-ztx(kv, jVjlJftxxduOOJ/rdj (kv, j 

1  v) 

fpu(l,0,l)  =  (~zty(kv, jv,l)*txydu01-ztx(kv, jv,l)*txxdu01)/rdj (kv, j 
1  v) 

fpu(l,0,2)  =  (-zty(kv, jv,l)*txydu02-ztx(kv, jv,l)*txxdu02)/rdj (kv, j 
1  v) 

fpu(l,0,3)  =  0 

fpu(l,l,0)  =  (-zty(kv, jv,l)*txydulO-ztx(kv, jv,l)*txxdulO)/rdj (kv, j 
1  v) 

fpu(l,l,l)  =  (-zty(kv, jv,l)+txydull-ztx(kv, jv,l)*txxdull)/rdj (kv, j 
1  ▼)  . 

fpu(l,l,2)  =  (-zty(kv, jv, 1) *txydul2-ztx(kv, jv,l)*txxdul2)/rdj (kv, j 
1  v) 

fpu(l,l,3)=0 

fpu(l,2,0)  =  (-zty(kv, jv,l)*txydu20-ztx(kv, jv,l)*txxdu20)/rdj (kv, j 


f pu (1,2,1)  =  (-zty (kv , j  v, 1) *txydu21-ztx (kv ,  j  v ,  1) *txxdu21) / rd j (kv , j 
1  v) 

fpu(l,2,2)  =  (-zty(kv, jv,l)*txydu22-ztx(kv, jv,l)*txxdu22)/rdj(kv, j 
1  v) 

fpu(l,2,3)  =  0 

fpu(l,3,0)  =  0 

fpu(l,3,l)  =  0 

fpu(l,3,2)  =  0 

fpu(l,3,3)  =  0 

fpu(2,0,0)  =  (-zty (kv , j v , 1) *tyyduOO-ztx (kv, j v , 1) *txyduOO)  /rd  j (kv , j 

1  v) 

fpu(2,0, 1)  =  (-zty(kv, jv,l)*tyydu01-ztx(kv, jv,l)*txydu01)/rdj (kv, j 
1  v) 

f pu (2 , 0 , 2)  =  (-zty (kv , j  v , 1) *tyydu02-ztx (kv , j  v , 1) *txydu02) /rd j (kv , j 
1  v) 

fpu(2,0,3)  =  0 

fpu(2,l,0)  =  (-zty(kv, jv,l)*tyydulO-ztx(kv, jY,l)+txydulO)/rdj (kv, j 
1  v) 

fpu(2,l,l)  =  (-zty(kv,  jv,l)*tyydull-ztx(kv,  jv,l)*txydull)/rdj  (kv,  j 
1  v) 

fpu(2,l,2)  =  (-zty(kv, jv,l)*tyydul2-ztx(kv, jv,l)*txydul2)/rdj (kv, j 
1  v) 

fpu(2,l,3)  =  0 

fpu(2,2,0)  =  (-zty(kv, jv,l)*tyydu20-ztx(kv, jv,l)*txydu20)/rdj (kv, j 
1  v) 

fpu(2,2,l)  =  (-zty(kv, jv, 1) *tyydu21-ztx(kv, jv,l)+txydu21)/rdj (kv, j 
1  v) 

fpu(2,2,2)  =  (-zty(kv,  jv,l)*tjrydu22-ztx(kv,  jv,l)+txydu22)/rdj  (kv,  j 
1  v) 

fpu(2,2,3)  =  0 
fpu(2,3,0)  =  0 
fpu(2,3, 1)  =  0 
fpu(2,3,2)  =  0 
fpu(2,3,3)  =  0 

fpu(3,0,0)  =  (-byduOO*zty(kv, jv, 1) -bxduOO*ztx(kv, jv,l))/rdj (kv, jv) 
fpu(3,0,l)  =  (-byduOl *zty (kv , j  v , 1 ) -bxduOl *  ztx (kv ,jv,l))/rdj(kv,jv) 
fpu(3,0,2)  =  (-bydu02*zty(kv, jv,l)-bxdu02*ztx(kv, jv,l))/rdj (kv, jv) 
fpu(3,0,3)  =  (~bydu03*zty(kv, jv,l)-bxdu03*ztx(kv, jv,l))/rdj (kv, jv) 
fpu(3, 1 ,0)  =  (-bydulO*zty(kv, jv, 1) -bxdulO*ztx(kv, j v, l))/rdj (kv, jv) 
fpu(3,l,l)  =  (-bydull*zty(kv, jv,l)-bxdull*ztx(kv, jv,l))/rdj (kv, jv) 
fpu(3,l,2)  =  (-bydul2*zty(kv, jv,l)-bxdul2*etx(kv, jv,l))/rdj (kv, jv) 
fpu(3,l,3)  =0 

fpu(3,2,0)  =  (-bydu20*zty(kv, jv,l)-bxdu20*ztx(kv, jv,l))/rdj (kv, jv) 
fpu(3,2,l)  =  (-bydu21*zty(kv, jv,l)-bxdu21*ztx(kv, jv,l))/rdj (kv, jv) 
fpu(3,2,2)  =  (-bydu22*zty(kv, jv,l)-bxdu22*ztx(kv, jv,l))/rdj (kv, jv) 
fpu(3,2,3)  =  0 

f pu (3 , 3 , 0)  =  (-bydu30*zty (kv , j v , 1) -bxdu30*ztx (kv , j  v , 1) ) / rd j (kv , j  v) 

fpu(3,3,l)  =  (-bydu31*zty(kv, jv, l)-bxdu31*ztx(kv, jv,l))/rdj (kv, jv) 

f pu (3 , 3 , 2)  =  (-bydu32*  zty (kv , j v , 1) -bxdu32*ztx (kv ,jv,l))/rdj (kv , j  v) 

fpu(3,3,3)  =  0 

fpv(0,0,0)  =  0 

fpv(0,0, 1)  =  0 

fpv (0,0,2)  =  0 

f  pv  (0 , 0 , 3)  =  0 

f pv(0, 1 ,0)  =  0 

fpv (0,1,1)  =  0 

fpv (0, 1,2)  =  0 

fpv (0,1,3)  =  0 

fpv (0,2,0)  =  0 


fpv(0,2,l)  =  0 
fpv(0,2,2)  =  0 
fpv(0,2,3)  =  0 
fpv(0,3,0)  =  0 
fpv (0,3,1)  =  0 
fpv(0,3,2)  =  0 
fpv(0,3,3)  =  0 

fpv(l,0,0)  =  (-zty(kv,jv,l)*txydv00-ztx(kv,jv,l)*txxdv00)/rdj(kv,j 

1  v) 

fpv(l,0,l)  =  (-zty(kv, jv,l)*txydv01-ztx(kv, jv,l)*txxdv01)/rdj (kv, j 
1  v) 

fpy(l,0,2)  =  (-zty(kv, jv,l)*txydv02-ztx(kv, jv,l)*txxdv02)/rdj(kv, j 
1  v) 

fpv(l,0,3)  =  0 

fpy (1,1,0)  =  (-zty(kv,jv,l)*txydvlO-ztx(kv,jv,l)*txxdvlO)/rdj(kv,j 

1  y) 

fpy (1 ,1,1)  =  (-zty(kv; jv,l)*txydvll-ztx(kv, jv,l)*txxdvll)/rdj (kv, j 

1  v) 

fpv(l,l,2)  =  (-zty(kv, jv,l)*txydvl2-ztx(kv, jv,l)*txxdvl2)/rdj (kv, j 
1  y) 

fpy (1,1, 3)  =  0 

fpy (1,2,0)  =  (-zty(kv,jv,l)*txydv20-*tx(kv,jv,l)*txxdv20)/rdj(kv,j 
1  v) 

fpy(l,2,l)  =  (-zty(kv,jv,l)*txydv21-ztx(kv,jv,l)*txxdv21)/rdj(kv,j 
1  ▼) 

fpy(l,2,2)  =  (-zty(kv, jv,l)*txydv22-ztx(kv, jv,l)*txxdv22)/rdj (kv, j 
1  y) 

fpy (1,2, 3)  =  0 
fpy(l,3,0)  =  0 
fpy (1,3,1)  =  o 
fpy (1,3, 2)  =  0 
fpy(l,3,3)  =  0 

fpy(2,0,0)  =  (-zty(ky, jy,l)*tyydy00-ztx(ky, jy,l)*txydy00)/rdj (ky, j 

1  v) 

fpv(2,0,l)  =  (-zty(ky, jy,l)*tyydy01-ztx(ky, jy,l)*txydy01)/rdj (kv, j 
1  ▼) 

fpy(2,0,2)  =  (~zty(ky, jy,l)*tyydv02-ztx(kv, jy,l)*txydv02)/rdj (kv, j 
1  y) 

fpv(2,0,3)  =0 

fpy(2,l,0)  =  (-zty(ky, jy,l)*tyydylO-*tx(ky, jy,l)*txydvlO)/rdj (kv, j 
1  ▼) 

fpy (2, 1,1)  =  (-zty(ky, jy,l)*tyydyll-ztx(ky, jv,l)*txydvll)/rdj (kv, j 

1  v) 

fpv(2,l,2)  =  (-zty(kv, jy,l)*tyydvl2-ztx(kv, jy,l)*txydvl2)/rdj (kv, j 
1  v) 

fpy (2, 1,3)  =  0 

fpv(2,2,0)  =  (-zty(kv, jy,l)*tyydv20-ztx(ky, jy,l)*txydv20)/rdj (kv, j 
1  ▼) 

fpv(2,2,l)  =  (-zty(kv, jy,l)*tyydv21-ztx(ky, jv,l)*txydv21)/rdj (kv, j 

1  v) 

fpv(2,2,2)  =  (-zty(kv, jv,l)*tyydv22-ztx(kv, jy,l)*txydv22)/rdj (kv, j 
1  y) 

fpv (2, 2, 3)  =  0 
fpv(2,3,0)  =  0 
fpv(2,3,l)  =  0 
fpy (2,3,2)  =  0 
fpv(2,3,3)  =0 

fpy(3,0,0)  =  (-bydv00*zty(kv, jv,l)-bxdv00*ztx(kv, jv,l))/rdj (kv, jv) 
fpy (3, 0,1)  =  (-bydv01*zty(kv, jv,l)-bxdv01*ztx(kv, jy,l))/rdj (kv, jv) 


fpy(3,0,2) 
fpv(3,0,3) 
fpv(3,l,0) 
fpv(3,l,l) 
fpy(3,l,2) 
fpv (3,1,3) 
fpv(3,2,0) 
fpy(3,2,l) 
fpv(3,2,2) 
fpy(3,2,3) 
£py(3,3,0) 
fpy(3,3,l) 
fpy(3,3,2) 
fpy(3,3,3) 
fuu(0,0,0) 
fuu(0,0,l) 
fuu(0,0,2) 
fuu(0,0,3) 
fuu (0,1,0) 
fuu (0,1,1) 
fuu (0,1,2) 
fuu(0, 1,3) 
fuu(0,2,0) 
fuu(0,2,l) 
fuu(0,2,2) 
fuu(0,2,3) 
fuu(0,3,0) 
fuu(0,3,l) 
fuu(0,3,2) 
fuu (0,3, 3) 
fuu(l,0,0) 
1  y) 
fuu(l,0,l) 
1  y) 
fuu(l,0,2) 
1  y) 
fuu(l,0,3) 
fuu(l,l,0) 
v) 

f uu (1 ,1,1) 
▼) 

fuu (1,1,2) 
▼) 

fuu(l,l,3) 

fuu(l,2,0) 

*) 

fuu(l,2,l) 

fuu(l,2,2) 

v) 

fuu(l,2,3) 
fuu(l,3,0) 
fuu(l,3,l) 
fuu(l ,3,2) 
fuu(l,3,3) 
fuu(2,0,0) 

r) 

fuu(2,0,l) 


-bydv02*zty (ky , j  v , 1) 
-bydv03*zty (ky , j  y , 1 ) 
-bydvlO*  zty (kv , j  y , 1 ) 
-bydvll*zty(kv, jv,l) 
-bydvl2*zty (kv, jv, 1) 


-bxdv02*ztx(kv, jv,l))/rdj (ky, jv) 
-bxdv03*ztx (ky , j  y , 1) ) /rd j (kv , j  v) 
-bxdv  10*xtx  (ky ,  j v ,  1)  )  /rd j  (kv ,  jv) 
-bxdyll**tx(kv, jy,l))/rdj (kv, jv) 
-bxdvl2*z tx (kv , j  v , 1) ) /rd j (kv , j  v) 


-bydv20*  zty (kv , j  v , 1 ) - bxdv20*  ztx (kv ,jv,l))/rdj(kv,jv) 
-bydv21*zty (kv , j  v , 1) -bxdv21*ztx (kv , j v , 1) ) / rd j (kv , j  v) 
-bydv22*zty (kv , j  v , 1) -bxdv22*ztx (kv , j  v , 1) ) / rd j (kv , j v) 

-bydv30*zty (kv , j  v , 1) -bxdv30*ztx (kv , j  v , 1) ) /rd j (kv , j v) 
-bydv31*zty (kv , j  v , 1) -bxdv31*stx (kv , j  v , 1) ) / rd j (kv , j  v) 
-bydv32*zty (kv , j  v , 1) -bxdv32*ztx (kv , j  v , 1 ) ) /rd j (kv , j  v) 


=  (-zty (kv , jv , 1) *txyuu00-ztx (kv , jv , 1) *txxuu00) /rdj (kv , , 
=  (-zty (kv , jv, 1) *txyuu01-ztx(kv , jv, 1) *txxuu01) /rd j (kv,, 
=  (-zty (kv , jv , 1) * txyuu02-ztx (kv , j  v , 1) *txxuu02) / rdj (kv , , 
=  0 

=  (-zty (kv , j  v , 1) *txyuulO-ztx (kv , jv , 1) *txxuul0) /rdj (kv , 
=  (-zty (kv , jv , 1) *txyuull-ztx (kv , jv , 1) *txxuull) /rdj (kv , 
=  (-zty (kv , j  v , 1) *txyuul2-ztx (kv , jv , 1) * txxuul2) /rdj (ky , 
=  0 

=  (-zty (kv , j v , 1) *txyuu20-ztx (kv , jv , 1) *txxuu20) /rdj (kv , 
=  (-zty (kv, jv, 1) *txyuu21-ztx(kv, j v, 1) *txxuu21)/rdj (kv, , 
=  (-zty (kv , j  v , 1) * txyuu22-ztx (kv , j v , 1) *txxuu22) / rdj (kv , j 


=  (-zty (kv , jv , 1) *tyyuu00-ztx (kv , jv , 1) *txyuu00) / rdj (kv , j 
=  (-zty(kv, jv , 1) *tyyuu01-ztx(kv , jv , 1) *txyuu01)/rdj (kv , j 


=  0 


(-zty (kv ,  j  v ,  1) *tyyuulO 
(-zty (kv , j v , 1) *tyyuull' 
(-zty (kv, j v, 1) *tyyuul2 


-ztx (kv , j v , 1) * txyuulO) / rd j (kv , j 
■ztx (kv , j v , 1) *txyuull) /rd j (kv, j 
-ztx(kv ,jv,l)*txyuul2)/rdj (kv, j 


fuu (2, 0,2)  =  (-zty (kv , j  v , 1) * tyyuu02-ztx (kv , j  v , 1) *txyuu02) /rd j (kv , j 

1  v) 
fuu(2,0,3) 
fuu(2,l,0) 

1  v) 
fuu(2,l,l) 

1  v) 
fuu (2, 1 ,2) 

1  v) 
fuu(2, 1 ,3) 
fuu (2,2,0) 

1  v) 
fuu(2,2,l) 

1  v) 
fuu(2,2,2) 

1  v) 
fuu(2,2,3) 
fuu(2,3,0) 
fuu (2, 3,1) 
fuu (2, 3, 2) 


=  0 


(-zty(kv, jv,l)*tyyuu20- 
(~zty(kv, jv,l) *tyyuu21' 
(-zty (kv , j v , 1) *tyyuu22- 


■ztx (kv , j  v , 1) * txyuu20) /rd j (kv , j 
-ztx (kv , j  v , 1) *txyuu21) / rd j (kv, j 
■ztx  (kv ,  J  v ,  1)  *txyuu22)  /  rd  j  (kv,  j 


0 

0 

0 

0 


fuu (2, 3, 3)  =  0 

fuu(3,0,0)  =  (-byuuOO*  zty (kv , j  v , 1) -bxuuOO*  ztx (kv,jv,l))/rdj(kv,jv) 

fuu (3 , 0 , 1)  =  (-byuu01*zty (kv , j v , 1) -bxuu01*ztx (kv , j  v , 1) ) / rdj (kv , j  v) 

fuu (3, 0,2)  =  (-byuu02*zty (kv, jv, 1) -bxuu02*ztx(kv, j v, 1) ) /rdj (kv , j v) 

fuu (3,0,3)  =  (-byuu03*zty (kv , j  v , 1) -bxuu03*ztx (kv , j v , 1) ) /rdj (kv , j v) 

fuu(3, 1 ,0)  =  (-byuulO*zty(kv, jv,l)-bxuulO*ztx(kv, jv,l))/rdj (kv Jv) 

fuu (3, 1,1)  =  (-byuull*zty(kv, jv,l)-bxuull*ztx(kv, jv,l))/rdj (kv, jv) 

fuu(3,l,2)  =  (-byuul2*zty(kv, jv,l)-bxuul2*ztx(kv, jv,l))/rdj (kv, jv) 

fuu(3,l,3)  =  (-byuul3*zty (kv , j  v , 1) -bxuul 3*ztx (kv,jv,l))/ rdj (kv, jv) 

fuu(3,2,0)  =  (-byuu20*zty(kv, jv,l)-bxuu20*ztx(kv, jv,l))/rdj (kv, jv) 

fuu (3 , 2 , 1)  =  (-byuu21*zty (kv , j v , 1) -bxuu21*ztx (kv , j v , 1) ) /rdj (kv , j  v) 

fuu (3 , 2 , 2)  -  (-byuu22*zty (kv , j v , 1) -bxuu22*ztx (kv , j v , 1) ) /rd j (kv , j v) 

fuu (3, 2, 3)  =  (-byuu23*zty (kv , j v , 1) -bxuu23*ztx (kv , j ▼ , 1) ) / rdj (kv, jv) 

fuu(3,3,0)  =  (-by uu30*zty (kv , j  v , 1) -bxuu30*  ztx (kv,jv,l))/rdj (kv, jv) 

fuu(3,3,l)  =  (-byuu31*zty(kv, jv,l)-bxuu31*ztx(kv, jv,l))/rdj (kv, jv) 

fuu (3,3,2)  =  (-byuu32*zty(kv, jv,l)-bxuu32*ztx(kv, jv,l))/rdj (kv, jv) 

fuu (3, 3, 3)  =  0 

fuv(0,0,0)  =  0 

fuv(0,0,l)  =  0 

fuv(0,0,2)  =  0 

fuv(0,0,3)  =  0 

fuv(0,l,0)  =  0 

fuv(0, 1 , 1)  =  0 

fuv(0,l,2)  =  0 

fuv(0,l,3)  =  0 

fuv(0,2,0)  =  0 

fuv (0,2,1)  =  0 

fuv (0,2,2)  =  0 

fuv (0,2, 3)  =  0 

fuv(0,3,0)  =  0 

fuv (0,3,1)  =  0 

fuv (0,3,2)  =  0 

fuv (0,3, 3)  =  0 

fuv(l,0,0)  =  (-zty (kv , j v , 1) *txyuvOO-ztx (kv , j v , 1) *txxuvOO) /rd j (kv , j 

1  v) 

f uv(l ,0, 1)  =  (-zty (kv , j  v , 1) *txyuv01-ztx (kv , j v , 1) *txxuv01) / rdj (kv, j 

1  v) 

fuv(l,0,2)  =  (-zty(kv, iv, 1) *txyuv02-ztx(kv, jv,l)*txxuv02)/rdj (kv, j 

1  v) 


fuv (1,0, 3)  =  0 

f  uv  (1 , 1 , 0)  =  (-zty (kv ,  j  v ,  1) *txyuvlO-ztx (kv, j v , 1) *txxuvl0) / rd j (kv , j 
1  v) 

fuv (1 ,1,1)  =  (-zty (kv, jv, 1) *txyuvll-ztx(kv, jv, l)*txxuvll)/rdj (kv, j 
1  v) 

f uv (1 , 1 , 2)  =  (-zty (kv , j  v , 1) *txyuvl2-ztx (kv , j v , 1) *txxuvl2) / rd j (kv , j 
1  v) 

f uv(l ,1,3)  =  0 

f uv (1,2,0)  =  (-zty(kv, jv, 1) * txyuv20-z tx (kv , j  v , 1 ) *  txxuv20) /rd j (kv , j 
1  v) 

f uv (1 , 2 , 1)  =  (-zty (kv , j v , 1) *txyuv21-ztx (kv, j v, 1) *txxuv21) /rd j (kv, j 
1  v) 

fuv(l,2,2)  =  (-zty (kv , j  v , 1) *txyuv22-ztx (kv , j v , 1) * txxuv22) / rd j (kv, j 
1  v) 

fuv(l,2,3)  =  0 

fuv (1,3,0)  =  0 

fuv(l,3,l)  =  0 

fuv (1,3, 2)  =  0 

fuv (1 ,3,3)  =  0 

fuv (2,0,0)  =  (-zty (kv , j  v , 1) ♦tyyuvOO-ztx (kv , j v , 1) *txyuvOO) / rd j (kv , j 

1  v) 

f  uv (2 , 0 , 1)  =  (-zty (kv , j  v , 1) *tyyuv01-ztx (kv , j  v , 1) *txyuv01) /rd j (kv , j 
1  v) 

fuv (2, 0,2)  =  (~zty(kv, jv,l)*tyyuv02-ztx(kv, jv,l)*txyuv02)/rdj (kv, j 
1  v) 

fuv(2,0,3)  =  0 

fuv(2,l,0)  =  (-zty(kv, jv,l)*tyyuvlO-ztx(kv, jv,l)+txyuvlO)/rdj (kv, j 
1  v) 

fuv (2, 1,1)  =  (-zty (kv, jv, 1) *tyyuvll-ztx(kv, jv,l)*txyuvll)/rdj (kv, j 
1  v) 

fuv(2, 1,2)  =  (-zty (kv, j v, 1) *tyyuvl2-ztx (kv, jv, 1) *txyuvl2) /rdj (kv, j 
1  v) 

fuv (2, 1,3)  =  0 

fuv (2 , 2 , 0)  =  (-zty (kv , j  v , 1) *tyyuv20-ztx (kv , j  v , 1) *txyuy20) /rdj (kv , j 
i  v) 

fuv (2 , 2, 1)  =  (-zty (kv , j v , 1) *tyyuv21-ztx (kv , j v , 1) *txyuv21) /rdj (kv , j 
1  v) 

f  uv (2 , 2 , 2)  =  (-zty (kv , j  v , 1) *tyyuv22  -ztx (kv , j  v , 1) *txyuv22) /rdj (kv , j 
1  ▼) 

fuv  (2, 2, 3)  =  0 
fuv(2,3,0)  =  0 
fuv (2, 3,1)  =  0 
fuv(2,3,2)  =  0 
fuv (2, 3, 3)  =  0 

fuv(3,0,0)  =  (-byuvOO*zty(kv, jv,l)-bxuvOO*ztx(kv, jv,l))/rdj (kv, jv) 
fuv(3,0,l)  =  (~byuv01*zty(kv, jv,l)-bxuv01*ztx(kv, jv,l))/rdj (kv, jv) 
fuv (3 , 0 , 2)  =  (~byuv02*zty (kv , j v , 1) -bxuv02*ztx (kv, j v , 1) ) / rdj (kv , j  v) 
fuv (3, 0,3)  =  (~byuv03*zty(kv, jv,l)-bxuv03*ztx(kv, jv,l))/rdj (kv, jv) 
fuv (3, 1 ,0)  =  (~byuvlO*zty(kv, jv, l)-bxuvlO*ztx(kv, jv,l))/rdj (kv, jv) 
fuv(3,l,l)  =  (-byuvll*zty(kv, jv,l)-bxuvll*ztx(kv, jv,l))/rdj (kv, jv) 
fuv (3,1 ,2)  =  (-byuvl2*zty(kv, jv,l)-bxuvl2*ztx(kv, jv,l))/rdj (kv, jv) 
fuv(3, 1,3)  =  (-byuvl3*zty(kv, jv,l)-bxuvl3*ztx(kv, jv,l))/rdj (kv, jv) 
f  uv (3 , 2 , 0)  =  ( -byuv20*  z ty (kv , j  v , 1 ) -bxuv20*  ztx (kv,jv,l))/rdj(kv,jv) 
fuv(3,2,l)  =  (-byuv21*zty(kv, jv,l)-bxuv21*ztx(kv, jv,l))/rdj (kv, jv) 
fuv (3, 2, 2)  =  (-byuv22*zty(kv, jv,i)-bxuv22*ztx(kv, jv,l))/rdj (kv, jv) 
f  uv (3 , 2 , 3)  =  (-byuv23*zty (kv , j  v , 1) -bxuv23*ztx (kv , j v , 1) ) /rdj (kv , j  v) 
fuv(3,3,0)  =  (-byuv30*zty(kv, jv, l)-bxuv30*ztx(kv, jv,l))/rdj (kv, jv) 
fuv (3, 3, 1)  =  (-byuv31*zty(kv, jv,l)-bxuv31*ztx(kv, jv,l))/rdj (kv, jv) 
fuv (3 , 3 , 2)  =  (-byuv32*zty (kv , j v , 1) -bxuv32*ztx (kv , j  v , 1 ) ) / rdj (kv , j  v) 
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fuv(3,3,3)  =  0 
fvp(0,0,0)  =  0 
fvp (0,0,1)  =  0 
fvp(0,0,2)  -  0 
fvp(0,0,3)  =  0 
fvp (0,1,0)  =  0 
fvp(0,l,l)  =  0 
fvp(0, 1 ,2)  =  0 
fvp(0,l,3)  =  0 
fvp(0,2,0)  =  0 
fvp(0,2,l)  =  0 
fyp(o,2,2)  =  0 
fyp (0,2,3)  =  0 
fyp (0,3,0)  =  0 
fyp (0,3,1)  =  o 
fvp(0,3,2)  =  0 
fyp (0,3,3)  =  0 

fvp(l,0,0)  =  (-zty(kv, jv,l)*txyvd00-ztx(kv, jv,l)*txxvd00)/rdj (ky, j 
1  y) 

fvp(l,0,l)  =  (-zty(kv, jv,l)*txyvd01-ztx(kv, jv,l)*txxvd01)/rdj (ky, j 
1  y) 

fyp(l,0,2)  =  (-zty(kv, jv,l)*txyvd02-ztx(kv, jv,l)*txxvd02)/rdj (kv, j 
1  y) 

fyp (1,0, 3)  =  0 

fyp (1,1,0)  =  (-zty(ky, jy,l)*txyvdl0-etx(ky, jy,l)*txxydlO)/rdj (ky, j 
1  y) 

fyp(l,l,l)  =  (~*ty(ky, jy,l)*txyydll-ztx(ky, jy,l)*txxydll)/rdj (ky, j 
1  y) 

fyp(l,l,2)  =  (~zty(ky, jy,l)*txyvdl2-ztx(ky, jy,l)*txxydl2)/rdj (kv, j 
1  y) 

fyp (1,1,3)  =  o 

fvp (1,2,0)  =  (-zty(ky,jy,l)*txyyd20-ztx(ky,jy,l)*txxyd20)/rdj(ky,j 
1  y) 

fyp(l,2,l)  =  (~zty(ky, jy,l)*txyyd21-ztx(ky, jy,l)*txxyd21)/rdj (ky, j 
1  y) 

fyp(l,2,2)  =  (~zty(kv, jy,l)*txyvd22-ztx(ky, jy,l)*txxyd22)/rdj (ky, j 
1  y) 

fyp(l,2,3)  =  0 

fyp (1,3,0)  =  0 

fyp(l,3,l)  =  0 

fyp(l,3,2)  =  0 

fyp (1,3, 3)  =  0 

fyp(2,0,0)  =  (-zty(ky, jy,l)*tyyvd00-ztx(ky, jy,l)*txyyd00)/rdj (ky, j 

1  y) 

fvp(2,0,l)  =  (~zty(ky, jy,l)*tyyyd01-ztx(ky, jy,l)*txyyd01)/rdj (kv, j 
1  y) 

fyp(2,0,2)  =  (~zty(ky, jy,l)*tyyyd02-ztx(ky, jy,l)*txyyd02)/rdj (ky, j 
1  y) 

fyp(2,0,3)  =  0 

fyp(2,l,0)  =  (~zty(ky, jy,l)*tyyydlO-ztx(ky, jy,l)*txyydlO)/rdj (ky, j 
1  v) 

fvp(2,l,l)  =  (-zty(ky,jy,l)*tyyydll-ztx(ky, jy,l)*txyydll)/rdj(ky, j 
1  y) 

fyp(2,l,2)  =  (~zty(ky, jy,l)*tyyydl2-ztx(ky, jv,l)*txyydl2)/rdj (kv, j 
1  y) 

fvp(2,l,3)  =  0 

fvp(2,2,0)  =  (-zty(kv, jv,l)*tyyvd20-ztx(kv, jy,l)*txyyd20)/rdj (kv, j 
1  y) 

fvp(2,2,l)  =  (-zty(ky, jv,l)*tyyvd21-ztx(kv, jy,l)*txyvd21)/rdj (kv, j 


c 


1 


1  v) 
fvp(2,2,2) 
1  v) 
fvp(2,2,3) 
fvp(2,3,0) 
fvp(2,3,l) 
fvp(2,3,2) 
fvp(2, 3,3) 
fvp(3,0,0) 
fvp(3,0,l) 
fvp(3,0,2) 
fvp(3,0,3) 
fvp(3,l,0) 
fvp(3,l,l) 
fvp(3,l,2) 
fvp(3, 1 , 3) 
fvp(3,2,0) 
fvp(3,2, 1) 
fvp(3,2,2) 
fvp(3,2,3) 
fvp(3,3,0) 
fvp(3,3,l) 
fvp(3,3,2) 
fvp(3,3,3) 
fvu (0,0,0) 
fvu (0,0,1) 
fvu(0,0,2) 
fvu (0,0,3) 
fvu(0, 1 ,0) 
fvu(0,l,l) 
fvu (0,1, 2) 
fvu(0, 1 ,3) 
fvu (0,2,0) 
fvu(0,2, 1) 
fvu(0,2,2) 
fvu(0,2,3) 
fvu(0,3,0) 
fvu(0,3, 1) 
fvu(0,3,2) 
fvu(0,3,3) 
fvu(l,0,0) 
1  v) 
fvu(l ,0,1) 
1  v) 
fvu(l ,0,2) 
1  v) 
fvu(l ,0,3) 
fvu(l , 1 ,0) 
1  v) 
fvu (1,1,1) 
1  v) 
fvu(l , 1,2) 
l  v) 
fvu ( 1 , 1 ,3) 
fvu(l ,2,0) 
1  v) 
fvu(l ,2,1) 
1  v) 
fvu(l,2,2) 


=  (-zty (kv , j  v , 1) *tyyvd22-ztx (kv , j v , 1) *txyvd22) / ru  j (kv , j 


-byvd00*zty (kv ,jv,l)- 
-byvd01*zty(kv,jv,l)- 
-byvd02*zty (kv, jv, 1)  ■ 
-by vd03*zty (kv ,jv,l)- 
-byvdlO*zty(kv,jv,l)- 
-byvdll*zty (kv, jv, 1)- 
-byvdl2*zty (kv, jv, 1)- 
-byvdl3*zty(kv,jv,l)- 
-byvd20*zty(kv,jv,l)- 
-byvd21*zty(kv, jv,l)- 
-byvd22*zty(kv, jv,l)- 
-byvd23*zty(kv, jv, 1)- 
-byvd30*zty(kv, jv, !)■ 


bxvd00*ztx(kv, 

■bxvd01*ztx(kv, 

■bxvd02*ztx(kv, 

bxvd03*ztx(kv, 

■bxvdlO*ztx(kv, 

•bxvdll*ztx(kv, 

■bxvdl2*ztx(kv, 

■bxvdl3*ztx(kv, 

•bxvd20*ztx(kv, 

■bcvd21*ztx(kv, 

■bxvd22*ztx(kv, 

bxvd23*ztx(kv, 

bxvd30*ztx(kv, 


jv,l))/rdj(kv,jv) 
jv , 1) )/rdj (kv ,  j  v) 
jv,l))/rdj (kv, jv) 
jv , 1) )/rdj (kv , jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj(kv,jv) 
jv,l))/rdj(kv,jv) 
jv,l))/rdj(kv, jv) 
jv,l))/rdj(kv,jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj(kv, jv) 


-zty (kv , j v , 1) *txyvu00-ztx (kv , j v , 1) *txxvuOO) /rd j (kv, j 


=  (-zty (kv, j v, 1) *txyvuOl-ztx (kv, j v, 1) *txxvu01) /rdj (kv, j 


=  (-zty (kv , j v , 1) *txyvu02-ztx (kv , j v , 1) *txxvu02) /rdj (kv , j 


=  (-zty(kv, iv,l)*txyvulO-ztx(kv, jv, 1) *txxvul0) /rdj (kv, j 


=  (-zty(kv.  v,l)*txyvull-ztx(kv, jv, 1) *txxvull)/rdj (kv, j 


=  (-zty (kv, jv, 1) *txyvul2-ztx(kv, jv, 1) *txxvul2) /rdj (kv, j 


=  (-zty (kv, jv, 1) *txyvu20-ztx (kv, jv, 1) *txxvu20) /rd j (kv, j 


=  (-zty  (kv,  j  v,  1)  *r,xyvu21-ztx(kv,  jv,  1)  *txxvu21 '  /rdj  (kv,  j 


(-zty (kv, j v, 1) xyvu22-ztx (kv , jv, 1) *txxvu22  /rdj  (kv , j 


■  VlV' vw 


wmRw?! 


1  r) 

fyu(l ,2,3)  =  0 

fvu(l,3,0)  =  0 

fvu(l,3,l)  =  0 

fvu(l,3,2)  =  0 

fvu(l,3,3)  =  0 

f vu (2,0,0)  =  (-zty (kv , j v , 1) *tyyvu00-ztx (kv ,  j  v ,  1) *txyvu00) /rdj (kv , j 

1  v) 

fvu(2,0, 1)  =  (-zty(kv, jv,l)*tyyvu01-ztx(kv, jv,l)*txyvu01)/rdj (kv, j 
1  v) 

fvu(2,0,2)  =  (-zty (kv , j v , 1) *tyyvu02-ztx (kv , jv , 1) *txyvu02) / rdj (kv, j 
1  v) 

fvu(2,0,3)  =  0 

fvu (2, 1,0)  =  (-zty (kv, j v , 1) *tyyvulO-ztx (kv , j v , 1) *txyvulO) / rdj (kv , j 
1  v) 

fvu(2, 1 , 1)  =  (-zty (kv , j  v , 1) *tyyvull-ztx (kv , j v , 1) *txyvull) / rdj (kv , j 
1  v) 

f vu (2,1,2)  =  (-zty (kv , j v , 1) *tyyvul2-ztx (kv , j v , 1) *txyvul2) / rdj (kv , j 
1  v) 

fvu(2,l,3)  =  0 

fvu(2,2,0)  =  (-zty (kv , j  v , 1) * tyy vu20-ztx (kv , j  v , 1) *txyvu20) /rdj (kv, j 
1  v) 

fvu(2,2,l)  =  (-zty (kv , j  v , 1) *tjry vu21 -ztx (kv , j  v , 1) *txyvu21) / rdj (kv , j 
1  v) 

fvu(2,2,2)  =  (-zty(kv, jv,l)*tyyvu22-ztx(kv, jv,l)*txyvu22)/rdj (kv, j 
1  v) 

fvu(2,2,3)  =  0 
fvu(2,3,0)  =  0 
fvu(2,3,l)  =  0 
fvu(2,3,2)  =  0 
fvu(2,3,3)  =  0 

fvu (3,0,0)  =  (-byvuOO*zty(kv, jv,l)-bxvuOO*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,0,l)  =  (-byvu01*zty(kv, jv,l)-bxvu01*ztx(kv, jv,l))/rdj (kv, jv) 

fvu (3 , 0 , 2)  =  (-byvu02*zty (kv , j v , 1) -bxvu02*ztx (kv , j  v , 1 ) ) /rdj (kv , j  v) 

fvu (3 , 0 , 3)  =  (-byvu03*zty (kv , j  v , 1) -bxvu03*ztx (kv , j  v , 1) ) /rd j (kv , j  v) 

fvu (3 , 1 , 0)  =  (-byvulO*zty (kv , j  v , 1) -bxvulO*ztx (kv , j  v , 1) ) /rdj (kv , j  v) 

fvu(3,l,l)  =  (-byvull*zty(kv, jv,l)-bxvull*ztx(kv, jv,l))/rdj (kv, jv) 

fvu (3, 1,2)  =  (-byvul2*zty(kv, jv,l)-bxvul2*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,l,3)  =  (-byvul3*zty(kv, jv,l)-bxvul3*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,2,0)  =  (-byvu20*zty(kv, jv,l)-bxvu20*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,2,l)  =  (-byvu21*zty(kv, jv,l)-bxvu21*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,2,2)  =  (-byvu22*zty(kv, jv,l)-bxvu22*ztx(kv, jv,l))/rdj (kv, jv) 

£vu(3,2,3)  =  (-byvu23*zty(kv, jv,l)-bxvu23*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,3,0)  =  (-byvu30*zty(kv, jv,l)-bxvu30*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,3,l)  =  (-byvu31*zty(kv, jv,l)-bxvu31*ztx(kv, jv,l))/rdj (kv, jv) 

fvu(3,3,2)  =  (-byvu32*zty(kv, jv,l)-bxvu32*ztx(kv,jv,l))/rdj(kv, jv) 

fvu(3,3,3)  =  0 

fw  (0,0,0)  =  0 

fvv (0,0,1)  =  0 

fvv(0,0,2)  =  0 

fvv (0,0,3)  =  0 

fvv(0, 1 ,0)  =  0 

fvv (0,1,1)  =  0 

fvv (0,1,2)  =  0 

fvv(0, 1,3)  =  0 

fw(0,2,0)  =  0 

fvv(0,2, 1)  =  0 

fvv (0,2,2)  =  0 

fvv (0,2, 3)  =  0 

A-5j 


fw(0,3,0)  =  0 
f vv (0,3,1)  =  0 
fvv (0,3,2)  =  0 
fvv(0,3,3)  =  0 

fw(l,0,0)  =  (-zty(kv,  jv,l)*txyw00-ztx(kv,  jv,l)*txxrv00)/rdj  (kv,  j 
1  v) 

fvv(l,0,l)  =  (-zty(kv,  jv,l)*txyvv01-ztx(kv,  jv,l)*txxw01)/rdj  (kv,  j 
1  v) 

fvv(l,0,2)  =  (-zby(kv, jv,l)*txyvv02-ztx(kv, jv,l)*txxvv02)/rdj(kv,j 
1  v) 

fvv(l,0,3)  =  0 

fvv (1,1,0)  =  (-zty(ky,  jv,l)*txywlO-ztx(kv,  jv,l)*txxwlO)/rdj  (kv,  j 
1  v) 

fw(l,l,l)  =  (-zty(kv,  jv,l)*txyvvll-ztx(kv,  jv,l)*txxvvll)/rdj  (kv,  j 
1  v) 

fvv(l,l,2)  =  (-zty(kv,  jv,l)*txywl2-ztx(kv,  jv,l)*txxvvl2)/rdj (kv, j 
1  v) 

fvv (1,1, 3)  =  0 

fvv(l,2,0)  =  (-zty(kv,  jv,l)*txyw20-ztx(kv,  jv,l)*txxw20)/rdj  (kv,  j 
1  v) 

fw  (1,2,1)  =  (-zty(kv,  jv,l)*txyw21-ztx(kv,  jv,l)+txxw21)/rdj  (kv,  j 
1  ▼) 

fvv(l,2,2)  =  (-zty(kv,  jv,l)*txyw22-ztx(kv,  jv,l)*txxw22)/rdj  (kv,  j 
1  v) 

fvv(l,2,3)  =  0 
fvv (1,3,0)  =  0 
fw(l,3,l)  =  0 
fw(l,3,2)  =  0 
fvv(l ,3,3)  =  0 

fw(2,0,0)  =  (-zty(kv,  jv,l)*tyyw00-ztx(kv,  jv,l)*txyw00)/rdj  (kv,  j 
1  v) 

fvv(2,0, 1)  =  (-ztv (kv ,  j v ,  1) *  tyywOl-ztx (kv ,  j v ,  1) *txyw01) /rd j  (kv ,  j 
1  v) 

fvv (2, 0,2)  =  (~zty(kv,  jv,l)*tyyw02-ztx(kv,  jv,l)*txyvv02)/rdj  (kv,  j 
1  v) 

fvv (2,0,3)  =  0 

fvv(2,l,0)  =  (-zty(kv,  jv,  1) *tyywlO-ztx(kv,  jv,l)*tx3rwlO)/rdj  (kv,  j 
1  v) 

fw(2,l,l)  =  (-zty(kv,3v,l)*ty3rwll-ztx(kv,3v,l)*tx]rvvll)/rdj  (kv,  j 
1  v) 

fw(2,l,2)  =  (-zty(kv,  jv,l)*tyyvvl2-ztx(kv,  jv,l)*txywl2)/rdj  (kv,  j 
1  v) 

fvv (2, 1,3)  =  0 

fvv(2,2,0)  =  (-zty(kv,  jv,l)*tyyw20-ztx(kv,  jv,  1) *txjrw20)/rdj  (kv,  j 
1  v) 

fw(2,2,l)  =  (-zty(kv,  jv,l)+tyyw21-ztx(kv,3v,l)*txyw21)/rdj  (kv,  j 
1  v) 

fvv(2,2,2)  =  (-zty(kv,  jv,l)*tyyw22-ztx(kv,  jv,l)*txjrvv22)/rdj  (kv,  j 
1  v) 

fw(2,2,3)  =  0 
fw(2,3,0)  =  0 
fw(2,3,l)  =  0 
fvv (2, 3, 2)  =  0 
fvv (2, 3, 3)  =  0 

fvv(3,0,0)  =  (-byvvOO*zty(kv,jv,l)-bxvvOO*ztx(kv, jv,l))/rdj (kv,jv) 
fvv (3, 0,1)  =  (-by vvOl *  zty (kv , j  v , 1 ) -bxvvOl *  ztx (kv , j  v , 1 ) ) /rd j (kv , j  v) 
fvv(3,0,2)  =  (-byvv02*zty(kv, jv,l)-bxvv02*ztx(kv, jv,l))/rdj (kv, jv) 
fw(3,0,3)  =  (-byvv03*zty(kv,  jv,l)-bxvv03*ztx(kv,  jv,l))/rdj  (kv,  jv) 
fw(3, 1 ,0)  =  (-byvvlO*zty  (kv,  jv,  1) -bxvvlO*ztx(kv,  jv,l))/rdj  (kv,  jv) 


fw(3,l,l)  =  (-byvvll*zty(kv,  jv,l)-bxwll*8tx(kv,  jv,l))/rdj(kv,jv) 
fw(3,l,2)  =  (-byvvl2*8ty(kY,jv,l)-bxwl2*ztx(kv,jv,l))/rdj(kv,jv) 
fw(3,l,3)  =  (-byvvl3*zty (kv,  j  v ,  1)  -bxwl3*ztx  (kv , j  v , 1) )  /  rd  j  (kv , j  v) 
fvv (3,2,0)  =  (-byw20*zty(kv,jv,l)-bxw20*ztx(kv,  jv,l))/rdj(kv,  jv) 
fvv(3,2,l)  =  (-byvv21*zty(kv,  jv,l)-bxw21*ztx(kv,  jv,l))/rdj(kv,  jv) 
fw(3,2,2)  =  (-byvv22*zty(kv,  jv,l)-bxw22*ztx(kv,  jv,l))/rdj(kv,  jv) 
f vv (3 , 2 , 3)  =  (-byvv23  *  zty (kv , j  v , 1 ) -bxw23*z  tx (kv , j  y , 1 ) ) /rd j (kv , j  v) 
fvv(3,3,0)  =  (-byvv30*zty (kv ,  j  y  ,  1) -bxvY30*8tx (kv ,  j  v ,  1) ) /rd j (kv, jv) 
fvv (3 , 3 , 1)  =  (-by vv31*zty (kv , j  v , 1) -bxvv31*  ztx (kv , j  v , 1) ) /rd j (kv , j  v) 
fvv (3, 3, 2)  =  (-byvv32*zty (kv , j  v , 1) -bxvv32*ztx (kv , j  v , 1) ) / rd j (kv, jv) 
fvv (3,3,3)  =  0 


gp(0,0)  =  cavdO*rho(kv, jv,l)/rdj (kv, jv)+cav/rdj (kv, jv) 
gp(0,l)  =  cavdl*rho(kv,jv,l)/rdj(kv,jv) 
gp(0,2)  =  cavd2*rho(kv, jv,l)/rdj (kv, jv) 
gp(0,3)  =  0 

gp (1 , 0)  =  (-ety (kv , j  v , 1) *txyd0+etx (kv , j  v , 1) * (pdO-txxdO) +cavdO*rhou 
1  (kv, jv,l))/rdj (kv, jv) 

gp(l,l)  =  (-ety(kv, jv,l)*txydl+etx(kv, jv,l)*(pdl-txxdl)+cavdl*rhou 
1  (kv, jv,l)+cav)/rdj (kv, jv) 

gp(l,2)  =  (-ety(kv, jv,l)*txyd2+etx(kv, jv,l)*(pd2-txxd2)+cavd2*rhou 
1  (kv, jv,l))/rdj (kv, jv) 
gp(l,3)  =  etx(kv, jv,l)*pd3/rdj (kv, jv) 

gp(2,0)  =  (ety (kv , j  v , 1) * (pdO-tyydO) -etx (kv , j  v , 1) *txydO+cavdO*rhov ( 
1  kv, jv,l))/rdj (kv, jv) 

gp(2,l)  =  (ety(kv, jv,l)*(pdl-tyydl)-etx(kv, jv,l)*txydl+cavdl*rhov( 
1  kv, jv,l))/rdj (kv, jv) 

gp(2,2)  =  (ety(kv, jv,l)*(pd2-tyyd2)-etx(kv, jv,l)*txyd2+cavd2*rhov( 
1  kv, jv,l)+cav)/rdj (kv, jv) 
gp(2,3)  =  ety(kv, jv,l)*pd3/rdj (kv, jv) 

gp (3,0)  =  (cav*pdO+cavdO* (p+rhoe (kv , j ▼ , 1) ) -bydO+ety (kv , j  v , 1) -bxdO* 
1  etx(kv, jv,l))/rdj (kv, jv) 

gp (3 , 1 )  =  (cav*pdl +cavdl * (p+rhoe (kv , j  v , 1) ) -bydl *ety (kv , j  v , 1 ) -bxdl * 
1  etx(kv, jv,l))/rdj (kv, jv) 

gp (3,2)  =  (cav*pd2+cavd2* (p+rhoe (kv , j  v , 1) ) -byd2*ety (kv , j  v , 1) -bxd2* 
1  etx(kv, jv,l))/rdj(kv,jv) 

gp(3,3)  =  (cav*(pd3+l)-byd3*ety(kv, jv,l)-bxd3*etx(kv, jv,l))/rdj (kv 

1  ,jv) 

gu(0,0)  =  0 
gu(0,l)  =  0 
gu(0,2)  =  0 

gu(0,3)  =  0 

gu(l,0)  =  (-ety(kv, jv,l)*txyuO-etx(kv, jv,l)*txxuO)/rdj (kv,  jv) 
gu(l,l)  =  (-ety(kv, jv,l)*txyul-etx(kv, jv,l)*txxul)/rdj (kv, jv) 
gu(l,2)  =  (-ety(kv, jv,l)*txyu2-etx(kv, jv,l)*txx\i2)/rdj (kv, jv) 
gu(l,3)  =  0 

gu(2,0)  =  (-ety (kv, jv, 1) *tyyuO-etx(kv, jv, 1) *txyuO) /rdj (kv, jv) 
gu(2,l)  =  (-ety (kv , jv, 1) *tyyul-etx(kv , jv, 1) *txyul)/rdj (kv , jv) 
gu(2,2)  =  (-ety(kv, jv,l)*tyyu2-etx(kv, jv,l)*txyu2)/rdj (kv, jv) 
gu(2,3)  =  0 

gu(3,0)  =  (-byuO*ety(kv, jv,l)-bxuO+etx(kv, jv,l))/rdj (kv, jv) 
gu(3,l)  =  (-byul*ety(kv, jv,l)-bxul*etx(kv, jv,l))/rdj (kv, jv) 
gu(3,2)  =  (-byu2*ety(kv, jv,l)-bxu2*etx(kv, jv,l))/rdj (kv, jv) 
gu(3,3)  =  (-byu3*ety(kv, jv,l)-bxu3*etx(kv, jv,l))/rdj (kv, jv) 
gv(0,0)  =  0 


gv(0,3)  =  0 

gv(l,0)  =  (-ety(kv,  jv,l)*txyvO-etx(kv,  jv,l)*txxvO)/rdj  (lev,  jv) 
gv(l,l)  =  (-ety(kv, jv,l)*txyvl-etx(kv,jv,l)*txxvl)/rdj(kv,jv) 
gv(l,2)  =  (-ety(kv,jv,l)*txyv2-etx(kv,jv,l)*txxv2)/rdj(kv,jv) 
gy(l,3)  =  0 

gv(2,0)  =  (-ety(kv,jv,l)*tyyvO-etx(kv,jv,l)*txyvO)/rdj(kv,jv) 
gv(2, 1)  =  (-ety (kv ,  j  v ,  1) *tyy vl-etx (ky , j v , 1) *txyvl) / rd j (kv , j  v) 
gv(2,2)  =  (-ety(kv, jv,l)*tyyv2-etx(kv, jv,l)*txyv2)/rdj(kv,jv) 
gy (2,3)  =  0 

gv(3,0)  =  (-byvO*ety(kv, jv,l)-bxvO*etx(kv, jv,l))/rdj (kv, jv) 
gy (3, 1)  =  (-byvl*ety(kv, jv,l)-bxvl*etx(kv, jv,l))/rdj(kv, jv) 
gy (3,2)  =  (-byv2*ety(kv, jv,l)-bxv2*etx(kv,jv,l))/rdj (kv, jv) 
gv(3,3)  =  (-byv3*ety(kv, jv,l)-bxv3*etx(kv, jv,l))/rdj(kv, jv) 
gpp(0,0,0)  =  cavddOO*rho(kv, jv,l)/rdj (kv, jv)+2*cavdO/rdj (kv, jv) 
gpp(0,0,l)  =  cavdd01*rho(kv, jv,l)/rdj (kv, jv)+cavdl/rdj (kv, jv) 
gpp(0,0,2)  =  cavdd02*rho(kv, jv, l)/rdj (kv, jv)+cavd2/rdj (kv, jv) 
gPP (0,0,3)  =  0 

gpp (0,1,0)  =  cavddlO*rho(kv, jv,l)/rdj (kv, jv)+cavdl/rdj (kv, jv) 
gpp(0,l,l)  =  0 

gPP (0,1,2)  =  0 
gPP (0,1,3)  =  0 

gpp (0,2,0)  =  cavdd20*rho(kv, jv,l)/rdj (ky, jv)+cavd2/rdj (kv, jv) 

gpp (0,2,1)  =  0 

gPP (0,2,2)  =  0 
gPP (0,2,3)  =  0 
gPP (0,3,0)  =  0 
gpp(0,3,l)  =  0 
gPP (0,3,2)  =  0 
gPP (0,3,3)  =  0 

gpp(l,0,0)  =  (-ety (kv , j v , 1) *txydd00+etx (kv , jv , 1) * (pddOO-txxddOO) +c 
1  avddOO*rhou(kv, jv,l))/rdj (kv, jv) 

gpp(l,0,l)  =  (~ety(kv, jv,l)*txydd01+etx(kv, jv,l)*(pdd01-txxdd01)+c 
1  avdd01*rhou (kv , j  v , 1) +cavdO) / rd j (kv , j  v) 

gpp (1 ,0,2)  =  (-ety (kv , jv , 1) *txydd02+etx (kv , jv , 1) * (pdd02-txxdd02) +c 
1  avdd02*rhou(kv, jv,l))/rdj (kv, jv) 
gpp(l ,0,3)  =0 

gpp (1,1,0)  =  (-ety (kv , j  v , 1) *txyddlO+etx (kv , j  v , 1)  +  (pddlO-txxddlO) +c 
1  avddlO*rhou(kv, jv,l)+cavdO)/rdj (kv, jv) 
gpp(l,l,l)  =  (etx(kv, jv,l)*pddll+2*cavdl)/rdj (kv, jv) 
gpp (1,1,2)  =  cavd2/rdj (kv , jv) 
gPP (1,1,3)  =  0 

gpp(l,2,0)  =  (-ety(kv, jv , 1) *txydd20+etx(kv , jv,l)*(pdd20-txxdd20)+c 
1  avdd20*rhou(kv, jv,l))/rdj (kv, jy) 
gpp (1,2,1)  =  cavd2/rdj (kv , jv) 
gpp (1,2, 2)  =  etx(kv, jv, 1) *pdd22/rdj (kv , jv) 
gPP(l,2,3)  =  0 
gPP(l,3,0)  =  0 
gPP (1,3,1)  =  0 
gPP (1,3, 2)  =  0 
gPP(l,3,3)  =  0 

gpp(2,0,0)  =  (ety(kv, jv,l)*(pddOO-tyyddOO)-etx(kv, jv,l)*txyddOO+ca 
1  vddOO*rhov(kv, jv,l))/rdj (kv, jy) 

gpp (2,0,1)  =  (ety (kv , j v , 1) * (pddOl-tyyddOl) -etx (kv , jv , 1) *txydd01+ca 
1  vdd01*rhov(kv, jv,l))/rdj (kv, jv) 

gpp (2,0,2)  =  (ety (kv , j  v , 1) * (pdd02- tyydd02) -etx (kv , j  v , 1) * txydd02+ca 
1  vdd02*rhov(kv, jv,l)+cavdO)/rdj (kv, jv) 
gPP (2 i 0,3)  =  0 

gpp (2,1,0)  =  (ety (kv , j  v , 1) * (pddlO-tyyddlO) -etx (kv , j v , 1) *txyddlO+ca 
1  vddlO*rhov(kv, jv,l))/rdj (kv, jv) 


gpp (2, 1,1)  =  ety(kv,jv,l)*pddll/rdj(kv, jv) 
gpp (2, 1,2)  =  caydl/rdj (kv, jv) 
gPP(2,l,3)  =  0 

gpp(2,2,0)  =  (ety(kv, jv,l)*(pdd20-tyydd20)-etx(kv, jv,l)*txydd20+ca 
1  vdd20*rhov(kv, jv,l)+cavdO)/rdj (kv, jv) 

gpp (2, 2,1)  =  cavdl/rdj (kv, jv) 

gpp(2,2,2)  =  (ety(kv, jv,l)*pdd22+2*cavd2)/rdj (kv, jv) 

gpp(2,2,3)  =  0 

gpp(2,3,0)  =  0 

gpp(2,3,l)  =  0 

gpp(2,3,2)  =  0 

gpp(2,3,3)  =  0 

gpp(3,0,0)  =  (cav*pddOO+2*cavdO*pdO+cavddOO*(p+rhoe(kv, jv,l))-bydd 
1  00*ety(kv, jv,l)-bxddOO*etx(kv, jv,l))/rdj (kv, jv) 
gpp(3,0, 1)  =  (cav*pdd01+cavd0*pdl+cavdl*pd0+cavdd01* (p+rhoe (kv, jv, 
1  1) ) -bydd01*ety (kv, j v, 1) -bxdd01*etx (kv , j v, 1) )/rdj (kv, j v) 

gpp(3,0,2)  =  (cav*pdd02+cavd0*pd2+cavd2*pd0+cavdd02* (p+rhoe (kv , jv, 
1  1)  ) -bydd02*ety (kv , j v, 1) -bxdd02*etx (kv, jv, 1) ) /rdj (kv, j v) 

gpp (3,0,3)  =  (cavdO* (pd3+l) -bydd03*ety (kv , j v , 1) -bxdd03*etx (kv , j v , 1 
1  ))/rdj(kv,jv) 

gpp (3,1,0)  =  (cav*pddlO+cavdO*pdl+cavdl*pdO+cavddlO* (p+rhoe (kv , j  v , 
1  l))-byddlO*ety(kv, jv, l)-bxddlO*etx(kv, jv,l))/rdj (kv, jv) 

gpp (3, 1,1)  =  (cav*pddll+2*cavdl*pdl-byddll*ety(kv, jv,l)-bxddll*etx 
1  (kv, jv,l))/rdj (kv, jv) 

gpp (3, 1,2)  =  (cavdl*pd2+cavd2*pdl-byddl2+ety (kv, jv,l)-bxddl2*etx(k 
1  ▼»j^,l))/rdj(kv,jv) 

gpp (3, 1,3)  =  cavdl*(pd3+l)/rdj (kv, jv) 

gpp (3, 2,0)  =  (cav*pdd20+cavd0*pd2+cavd2*pd0+cavdd20* (p+rhoe (kv , jv, 
1  1) ) -bydd20*ety (kv , j v , 1) -bxdd20*etx (kv , j v , 1) ) /rdj (kv , j  v) 

gpp(3,2,l)  =  (cavdl*pd2+cavd2*pdl-bydd21*ety(kv, jv,l)-bxdd21+etx(k 
1  v> JT»l))/rdj (kv, jv) 

gpp (3, 2, 2)  =  (cav*pdd22+2*cavd2*pd2-bydd22*ety(kv, jv,l)-bxdd22*etx 
1  (kv, jv,l))/rdj (kv, jv) 
gpp(3,2,3)  =  cavd2*(pd3+l)/rdj (kv, jv) 

gpp (3,3,0)  =  (cavdO* (pd3+l) -bydd30*efcy (kv , j v , 1) -bxdd30*etx (kv , j v , 1 
1  ))/rdj(kv, jv) 

gpp(3,3,l)  =  cavdl*(pd3+l)/rdj(kv, jv) 

gpp(3,3,2)  =  cavd2*(pd3+l)/rdj (kv, jv) 

gPP (3,3,3)  =  0 

gpu(0,0,0)  =  0 

gpu(0,0,l)  =  0 

gpu(0,0,2)  =  0 

gpu(0,0,3)  =  0 

gpu (0,1,0)  =  0 
gpu (0,1,1)  =  0 
gpu (0,1, 2)  =  0 

gPu (0,1,3)  =  0 
gpu(0,2,0)  =  0 
gpu(0,2,l)  =  0 
gpu (0,2,2)  =  0 
gpu (0,2, 3)  =  0 
gpu (0,3,0)  =  0 
gpu (0,3,1)  =  0 
gpu (0,3,2)  =  0 
gpu (0,3, 3)  =  0 

gpu(l,0,0)  =  (-ety(kv, jv, 1) *txyduOO-etx(kv, jv,l)*fcxxduOO)/rdj (kv, j 

1  y) 

gpu(l,0,l)  =  (-ety(kv, jv, 1) *txydu01-etx(kv, jv, 1) *txxdu01)/rdj (kv, j 


gpu (1,0,2)  =  (-ety (kv , j  v , 1) *txydu02-etx (kv ,  j  v ,  1) *txxdu02) / rd j (kv , j 
1  v) 

gpu(l,0,3)  =  0 

gpu(l,l,0)  =  (-ety (kv , j  v , 1) *txydulO-etx (kr ,  j  v ,  1) * txxdulO) / rd j (kv , j 
1  v) 

gpu ( 1 , 1 , 1)  =  (-ety (kv , j  v , 1) *txydull-etx (kv , j  v , 1) *txxdull) /rd j (kv , j 
1  v) 

gpu ( 1 , 1 , 2)  =  (-ety (kv , j  v , 1) *txydul2-etx (kv , j  v , 1) *txxdul2) /rd j (kv , j 
1  v) 

gpu (1,1,3)  =0 

gpu (1 ,2,0)  =  (-ety (kv , j  v , 1) * txydu20-etx (kv , j  v , 1) *txxdu20) / rd j (kv , j 
1  v) 

gpu (1,2,1)  =  (-ety  (kv , j  v , 1) * txydu21-etx (kv , j v , 1) * txxdu21) / rd j (kv, j 
1  v) 

gpu(l,2,2)  =  (-ety(kv, jv, 1) *txydu22-etx(kv, jv,l)*txxdu22)/rdj (kv, j 
1  v) 

gpu (1,2, 3)  =  0 
gpu (1,3,0)  =  0 
gpu(l,3, 1)  =  0 
gpu (1,3, 2)  =  0 
gpu (1,3, 3)  =  0 

gpu(2,0,0)  =  (-ety(kv, jv,l)*tyyduOO-etx(kv, jv,l)*txyduOO)/rdj (kv, j 

1  v) 

gpu (2, 0,1)  =  (-ety(kv, jv,l)*tyydu01-etx(kv, jv,l)*txydu01)/rdj (kv, j 
1  v) 

gpu (2, 0,2)  =  (-ety (kv , j  v , 1) *tyydu02-etx (kv , j  v , 1) *txydu02) / rd j (kv , j 
1  v) 

gpu(2,0,3)  =0 

gpu (2, 1,0)  =  (-ety(kv, jv,l)*tyydulO-etx(kv, jv,l)*txydulO)/rdj (kv, j 
1  v) 

gpu (2, 1,1)  =  (-ety(kv, jv,l)*tyydull-etx(kv, jv,l)*txydull)/rdj (kv, j 
1  v) 

gpu (2, 1,2)  =  (-ety (kv , j  v , 1) *tyydul2-etx (kv , j  v , 1) *txydul2) / rd j (kv, j 
1  v) 

gpu (2, 1 ,3)  =  0 

gpu (2,2,0)  =  (-ety (kv , j  v , 1 ) *  tyydu20-etx (kv , j  v , 1) * txydu20) /rd j (kv , j 

1  v) 

gpu(2,2,l)  =  (-ety(kv, jv,l)*tyydu21-etx(kv, jv,l)*txydu21)/rdj (kv, j 
1  v) 

gpu(2,2,2)  =  (-ety(kv, jv,l)*tyydu22-etx(kv, jv,l)*txydu22)/rdj (kv, j 
1  v) 

gpu (2, 2, 3)  =  0 
gpu(2,3,0)  =  0 
gpu (2, 3, 1)  =  0 
gpu (2,3,2)  =  0 
gpu (2, 3, 3)  =  0 

gpu(3,0,0)  =  (-byduOO*ety(kv, jv,l)-bxduOO*etx(kv, jv,l))/rdj (kv, jv) 
gpu (3,0,1)  =  (-byduOl *  ety (kv , j  v , 1 ) -bxduOl *etx (  kv , j  v , 1) ) /rd j (kv , j  v) 
gpu (3, 0,2)  =  (-bydu02*ety(kv, jv,l)-bxdu02*etx(kv, jv,l))/rdj (kv, jv) 
gpu(3,0,3)  =  (-bydu03*ety(kv, jv,l)-bxdu03*etx(kv, jv,l))/rdj (kv, jv) 
gpu(3,l,0)  =  (-bydulO*ety(kv, jv,l)-bxdulO*etx(kv, jv,l))/rdj (kv, jv) 
gpu (3,1,1)  =  (-bydull*ety (kv , j v , 1) -bxdull*etx (kv , j v , 1) ) /rd j (kv , j v) 
gpu (3,1,2)  =  (-bydul2*ety (kv , j v , 1) -bxdul2*etx (kv , j v , 1) ) / rd j (kv , j v) 
gpu(3,l,3)  =  0 

gpu(3,2,0)  =  (-bydu20*ety(kv, jv,l)-bxdu20*etx(kv, jv,l))/rdj (kv, jv) 
gpu (3,2,1)  =  (-bydu21 *ety (kv , j v , 1) -bxdu21*etx (kv , j v , 1) ) / rd j (kv , j v) 
gpu(3,2,2)  =  (-bydu22*ety(kv, jv, l)-bxdu22*etx(kv, jv,l))/rdj (kv, jv) 
gpu(3,2,3)  =  0 

gpu (3,3,0)  =  (-bydu30*ety (kv , j  v , 1) -bxdu30*etx (kv,jv,l))/rdj (kv , j  v) 


gpu(3,3, 1)  =  (-bydu31*ety(kv,jv,l)-bxdu31*etx(kv, jv,l))/rdj (kv, jv) 

gpu(3,3,2)  =  (-bydu32*ety(kv,  jv,l)-bxdu32*etx(kv,  jv,l))/rdj (kv,  jv) 

gpu(3,3,3)  =  0 

gpv(0,0,0)  =  0 

gpy (0,0,1)  =  0 

gPv (0,0,2)  =  0 

gpy (o,o,3)  =  o 

gpy (o,i,o)  =  o 

gpy (0,1,1)  =  o 

gpy (0,1,2)  =  o 

gpy (o,i,3)  =  o 

gpy(o,2,o)  =  o 

gpy (0,2,1)  =  o 

gpy (0,2,2)  =  o 

gpy (0,2, 3)  =  o 

gpy  (o ,  3 ,  o)  =  o 

gpy (o,3,i)  =  o 

gpy (0,3,2)  =  o 

gpy(o,3,3)  =  o 

gpy(l,0,0)  =  (-ety(kv, jv,l)*txydvOO-etx(kv, jv,l)*txxdvOO)/rdj (kv, j 

1  v) 

gpv(l,0,l)  =  (-ety(kv, jv,l)*txydv01-etx(kv, jv,l)*txxdv01)/rdj (kv, j 
1  v) 

gpv(l,0,2)  =  (-ety(kv, jv,l)*txydv02-etx(kv, jv,l)*txxdv02)/rdj (kv, j 
1  y) 

gpv(l,0,3)  =  0 

gpy (1,1,0)  =  (-ety(kv, jv,l)*txydvlO-etx(kv, jv,l)*txxdvlO)/rdj (kv, j 
1  y) 

gpy(l,l,l)  =  (-ety(kv, jv,l)*txydvll-etx(kv, jv,l)*txxdvll)/rdj (kv, j 
1  y) 

gpv(l,l,2)  =  (-ety(kv, jv,l)*txydvl2-etx(kv, jv,l)*txxdvl2)/rdj (ky, j 
1  y) 

gpy (1,1, 3)  =  o 

gpv(l,2,0)  =  (~ety(kv, jy,l)*txydv20-etx(kv, jv,l)*txxdv20)/rdj (kv, j 
1  v) 

gpy (1,2,1)  =  (~ety(ky, jv,l)*txydv21-etx(kv, jv,l)*txxdv21)/rdj (kv, j 
1  v) 

gpy(l,2,2)  =  (-ety(ky, jy,l)*txydv22-etx(ky, jv,l)*txxdv22)/rdj (kv, j 
1  v) 

gpv(l,2,3)  =  0 

gpy(i»3,o)  =  o 

gpy(i,3,i)  =  o 

gpy  (1,3, 2)  =  o 

gpv(l,3,3)  =  0 

gpv(2,0,0)  =  (-ety(kv, jy,l)*tyydvOO-etx(ky, jv,l)*txydvOO)/rdj (kv, j 

1  v) 

gpv(2,0,l)  =  (-ety(kv, jy,l)*tyydv01-etx(ky, jy,l)*txydv01)/rdj (kv, j 
1  ▼) 

gpy (2, 0,2)  =  (~ety(kv, jy,l)*tyydv02-etx(kv, jy,l)*txydv02)/rdj (kv, j 
1  v) 

gpy (2,0,3)  =  0 

gpy(2,l,0)  =  (-ety(kv, jv,l)*tyydvlO-etx(kv, jv,l)*txydvlO)/rdj (kv, j 
1  v) 

gpv(2,l,l)  =  (~ety (kv , jv , 1) +tyydvll-etx (kv , jy , 1) *txydvll) /rdj (kv , j 
1  v) 

gpv (2, 1,2)  =  (-ety (kv, jv, 1) *tyydvl2-etx (kv, jv, 1) *txydvl2) /rdj (kv, j 
1  v) 

gpy  (2, 1 ,3)  =  0 

gpv(2,2,0)  =  (~ety(kv, jv, 1) *tyydv20-etx(kv, jv,l)*txydv20)/rdj (kv, j 


1  v) 

gpr(2,2,l)  =  (~ety(kv, jv,l)*tyydv21-etx(kv, jv,l)*txydv21)/rdj(kv, j 
1  v) 

gpy (2,2,2)  =  (-ety(kv, jv,l)*tyydv22-etx(kv, jv,l)*txydv22)/rdj (kv, j 
1  v) 

gPT (2,2,3)  =  0 
gPT(2,3,0)  =  0 
gpv(2,3,l)  =  0 
gpy (2,3, 2)  =  0 
gpv(2,3,3)  =  0 

gpv(3,0,0)  =  (~bydvOO*ety(kv, jv,l)-bxdvOO*etx(kv, jv,l))/rdj (kv, j») 
gpv(3,0,l)  =  (-bydv01*ety(kv, jv,l)-bxdv01*etx(kv, jv,l))/rdj(kv, jv) 
gpv(3,0,2)  =  (~bydv02*ety(kv, jv,l)-bxdv02*etx(kv, jv,l))/rdj (kv, jv) 
gpv(3,0,3)  =  (-bydv03*ety(kv, jv,l)-bxdv03*etx(kv, jv,l))/rdj(kv, jv) 
gpv(3,l,0)  =  (-bydvlO*ety(kv, jv,l)-bxdvlO*etx(kv, jv,l))/rdj (kv, jv) 
gpv(3,l,l)  =  (-bydvll*ety(kv, jv,l)-bxdvll*etx(kv, jv,l))/rdj (kv, jv) 
gpv(3,l,2)  =  (-bydvl2*ety(kv, jv,l)-bxdvl2*etx(kv, jv,l))/rdj (kv, jv) 
gpv (3,1,3)  =  0 

gpv(3,2,0)  =  (~bydv20*ety(kv, jv,l)-bxdv20*etx(kv, jv,l))/rdj (kv, jv) 
gpv(3,2,l)  =  (-bydv21*ety(kv, jv,l)-bxdv21*etx(kv, jv,l))/rdj (kv, jv) 
gpv(3,2,2)  =  (-bydv22*ety(kv, jy,l)-bxdv22*etx(ky, jv,l))/rdj (kv, jy) 
gpv(3,2,3)  =  0 

gpy(3,3,0)  =  (-bydv30*«ty(kv, jy,l)-bxdv30*etx(kv, jv,l))/rdj (kv, jv) 

gpv(3,3,l)  =  (-bydy31*ety(kv, jv,l)-bxdv31*etx(kv, jv,l))/rdj (kv, jv) 

gpy(3,3,2)  =  (-bydv32*ety (kv , jv , 1) -bxdv32*etx (kv , jv , 1) ) /rdj (ky , j  v) 

gpv (3, 3, 3)  —  0 

guu (0,0,0)  =  0 

guu (0,0,1)  =  0 

guu (0,0,2)  =  0 

guu(0,0,3)  =  0 

guu (0,1,0)  =  0 

guu(0, 1, 1)  =  0 

guu (0,1, 2)  =  0 

guu (0,1,3)  =  0 

guu (0,2,0)  =  0 

guu (0,2,1)  =  0 

guu (0,2,2)  =  0 

guu (0,2,3)  =  0 

guu (0,3,0)  =  0 

guu(0,3,l)  =  0 

guu (0,3,2)  =  0 

guu (0,3,3)  =  0 

guu(l,0,0)  =  (~ety(kv, jy,l)*txyuu00-etx(kv, jy,l)*txxuu00)/rdj (kv, j 
1  v) 

guu(l ,0,1)  =  (~efcy(kv, jy,l)*txyuu01-etx(kv, jy,l)*txxuu01)/rdj (kv, j 
1  v) 

guu(l,0,2)  =  (-efcy(kv, jy,l)*txyuu02-etx(kv, jy,l)*txxuu02)/rdj (kv, j 
1  y) 

guu(l,0,3)  =  0 

guu(l ,1,0)  =  (-ety(kv, jy,l)*txyuul0-etx(kv, jy,l)*fcxxuulO)/rdj (kv, j 
1  v) 

guu(l,l,l)  =  (~ety(kv, jy,l)*txyuull-etx(kv, jv,l)*txxuull)/rdj (kv, j 
1  *) 

guu(l,l,2)  =  (~ety(kv, jy,l)*txyuul2-etx(kv, jv,l)*txxuul2)/rdj(kv, j 
1  v) 

guu (1,1,3)  =  0 

guu(l,2,0)  =  (~ety(kv, jy,l)*txyuu20-etx(kv, jv,l)*txxuu20)/rdj (kv, j 
1  v) 

guu(l,2,l)  =  (~ety(kv, jy,l)*fcxyuu21-etx(kv, jy,l)*txxuu21)/rdj (kv, j 


1  v) 

guu(l,2,2)  =  (-ety (kv ,  j  v ,  1) *txyuu22-etx (kv ,  j  v ,  1) *txxuu22) / rd j (kv , j 
1  v) 

guu(l ,2,3)  =  0 
guu (1 ,3,0)  =  0 
guu(l,3,l)  =  0 
guu(l ,3,2)  =  0 
guu(l,3,3)  =0 

guu(2,0,0)  =  (-ety(kv, jv,l)*tyyuu00-etx(kv, jv,l)*txyuu00)/rdj (kv, j 
1  v) 

g-u(2,0,l)  =  (-ety (kv, j v, 1) *tyyuu01-etx(kv , iv, 1) *txyuu01) /rdj (kv , j 
1  v) 

guu(2,0,2)  =  (-ety(kv, jv,l)*tyyuu02-etx(kv, jv,l)*txyuu02)/rdj (kv, j 
1  v) 

guu(2,0,3)  =  0 

guu (2, 1,0)  =  (-ety(kv, jv,l)*tyyuulO-etx(kv, jv,l)*txyuulO)/rdj (kv, j 
1  v) 

guu(2,l,l)  =  (-ety(kv, jv,l)*tyyuull-etx(kv, jv,l)*txyuull)/rdj (kv, j 
1  v) 

guu (2,1,2)  =  (-ety (kv , j  v , 1) *tyyuul2-etx (kv , j  v , 1) * txyuul2) /rd j (kv , j 
1  v) 

guu (2, 1,3)  =  0 

guu(2,2,0)  =  (-ety(kv, jv,l)*tyyuu20-etx(kv, jv,l)*txyuu20)/rdj (kv, j 
1  v) 

guu (2, 2,1)  =  (-ety(kv, jv,l)*tyyuu21-etx(kv,jv,l)*txyuu21)/rdj(kv,j 
1  v) 

guu(2,2,2)  =  (-ety(kv, jv,l)*tyyuu22-etx(kv, jv,l)*txyuu22)/rdj (kv, j 
1  v) 

guu (2,2,3)  =  0 
guu(z,3,0)  =  0 
guu (2, 3,1)  =  0 
guu (2, 3, 2)  =  0 
guu (2, 3, 3)  =  0 

guu(3,0,0)  =  (-byuuOO*ety(kv, jv,l)-bxuuOO*etx(kv, jv,l))/rdj (kv, jv) 

guu (3, 0,1)  =  (~byuu01*ety(kv, jv,l)-bxuu01*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,0,2)  -  (-byuu02*ety(kv, jv,l)-bxuu02*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,0,3)  =  (-byuu03*ety(kv, jv,l)-bxuu03*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,l,0)  =  (-byuulO*ety(kv, jv,l)-bxuulO+etx(kv, jv,l))/rdj (kv, jv) 

guu(3,l,l)  =  (-byuull*ety(kv, jv,l)-bxuull*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,l,2)  =  (-byuul2*ety(kv, jv,l)-bxuul2*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,l,3)  =  (-byuul3*ety(kv, jv,l)-bxuul3*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,2,0)  =  (-byuu20*ety(kv, jv,l)-bxuu20*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,2,l)  =  (-byu\i21*ety(kv, jv,l)-bxuu21*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,2,2)  =  (-byuu22*ety(kv, jv,l)-bxuu22*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,2,3)  =  (-byuu23*ety(kv, jv,l)-bxuu23*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,3,0)  =  (-byuu30*ety(kv, jv,l)-bxuu30*etx(kv, jv,l))/rdj (lev, jv) 

guu (3,3,1)  =  (-byuu31 *  ety (kv , j  v , 1) -bxuu31 *etx (kv,jv,l))/rdj (kv , j  v) 

guu(3,3,2)  =  (~byuu32*ety(kv, jv,l)-bxuu32*etx(kv, jv,l))/rdj (kv, jv) 

guu(3,3,3)  =  0 

guv(0,0,0)  =  0 

guv(0,0,l)  =  0 

guv(0,0,2)  =  0 

guv(0,0,3)  =  0 

guv(0,l,0)  =  0 

guv(0,l,l)  =  0 

guv (0,1,2)  =  0 

guv(0,l,3)  =  0 

guv (0,2,0)  =  0 

guv (0,2,1)  =  0 


guv(0,2,2)  =  0 
guv (0,2 ,3)  =  0 
guv(0,3,0)  =  0 
guv(0,3,l)  =  0 
guv(0,3,2)  =  0 
guv (0,3,3)  =  0 

guv(l,0,0)  =  (-ety(kv, jv,l)*txyuv00-etx(kv, jv,l)*txxuv00)/rdj (kv,j 
1  v) 

guv(l,0,l)  =  (-ety(kv, jv,l)*txyuv01-etx(kv, jv,l)*txxuv01)/rdj (kv, j 
1  v) 

gur(l,0,*?)  =  (-cty(kv, jv,l)*txyuv02-etx(kv, jY,l)*txxuv02)/rdj (kv, j 
1  v) 

guv (1,0, 3)  =  0 

guv(l,l,0)  =  (-ety(kv, jv,l)*txyuvlO-etx(kv, jv,l)*txxuvlO)/rdj (kv, j 
1  v) 

guv(l,l,l)  =  (-ety(kv, jv, 1) *txyuvll-etx(kv, jv,l)*txxuvll)/rdj (kv, j 
1  v) 

guv(l,l,2)  =  (-ety(kv, jv,l)*txyuvl2-etx(kv, jv,l) *txxuvl2)/rdj (kv, j 
1  v) 

guv (1,1, 3)  =  0 

guv(l,2,0)  =  (-ety(kv, jv, 1) *txyuv20-etx(kv, jv,l)*txxuv20)/rdj (kv, j 
1  v) 

guv(l,2,l)  =  (-ety(kv, jv,l)*txyuv21-etx(kv, jv,l)*txxuv21)/rdj (kv, j 
1  v) 

guv(l,2,2)  =  (-ety(kv, jv,l)*txyuv22-etx(kv, jv,l)*txxuv22)/rdj (kv, j 
1  v) 

guv (1,2,3)  =  0 

guv(l,3,0)  =  0 

guv (1,3,1)  =  0 

guv (1,3, 2)  =  0 

guv(l,3,3)  =  0 

guv(2,0,0)  =  (-ety(kv, jv,l)*tyyuv00-etx(kv, jv,l)*txyuv00)/rdj (kv, j 

1  v) 

guv(2,0,l)  =  (-ety(kv, jv,l)*tyyuv01-etx(kv, jv,l)*txyuv01)/rdj (kv, j 
1  v) 

guv(2,0,2)  =  (-ety(kv, jv,l)*tyyuv02-etx(kv, jv,l)*txyuv02)/rdj (kv, j 
1  v) 

guv(2,0,3)  =  0 

guv(2,l,0)  =  (-ety(kv, jv,l)*tyyuvlO-etx(kv, jv,l)*txyuvlO)/rdj (kv, j 
1  v) 

guv(2,l,l)  =  (~ety(kv, jv,l)*tyyuvll-etx(kv, jv,l)*txyuvll)/rdj (kv, j 
1  ▼) 

guv(2,l,2)  =  (-ety(kv, jv,l)*tyyuvl2-etx(kv, jv,l)*txyuvl2)/rdj (kv, j 
1  v) 

guv(2,l,3)  =  0 

guv(2,2,0)  =  (-ety(kv, jv,l)*tyyuv20-etx(kv, jv,l)*txyuv20)/rdj (kv, j 
1  v) 

guv(2,2,l)  =  (-ety(kv, jv,l)*tyyuv21-etx(kv, jv,l)*txyuv21)/rdj (kv, j 
1  Y) 

guv(2,2,2)  =  (-ety(kv, jv,l)*tyyuv22-etx(kv, jv,l)*txyuv22)/rdj (kv, j 
1  v) 

guv  (2, 2, 3)  =  0 
guv (2,3,0)  =  0 
guv (2, 3,1)  =  0 
guv (2,3,2)  =  0 
guv(2,3,3)  =  0 

guv(3,0,0)  =  (-byuv00*ety(kv, jv,l)-bxuv00*etx(kv, jv,l))/rdj (kv, jv) 
guv(3,0,l)  =  (-byuvOI **t-.y(kv,  jv,l)-bxuv01*etx(kv,  jv,l))/rdj  (kv,  jv) 
guv (3, 0,2)  =  (-byuv02*ety(kv, jv, l)-bxuv02*etx(kv, jv,l))/rdj (kv, jv) 


guv(3,0,3) 
guv(3, 1 ,0) 
guv(3,l,l) 
guv (3,1,2) 
guv (3, 1,3) 
guv(3,2,0) 
guv (3, 2, 1) 
guv (3, 2, 2) 
guv (3, 2, 3) 
guv(3,3,0) 
guv (3,3,1) 
guv (3,3,2) 
guv (3, 3, 3) 
gvp(0,0,0) 
gvp(0,0, 1) 
gvp(0,0,2) 
gvp(0,0,3) 
gvp (0,1,0) 

gvp(0, 1 , 1) 
gvp (0,1,2) 
gvp (0,1,3) 
gvp(0,2,0) 
gvp (0,2,1) 
gvp (0,2, 2) 
gvp (0,2,3) 
gvp (0,3,0) 
gvp (0,3,1) 
gvp (0,3,2) 
gvp (0,3,3) 
gvp(l ,0,0) 
v) 

gvp(l ,0, 1) 
v) 

gvp(l ,0,2) 
v) 

gvp(l,0,3) 
gvp (1,1,0) 
v) 

gvp (1,1, 1) 
v) 

gvp (1,1, 2) 
v) 

gvp (1,1,3) 
gvp (1,2,0) 
▼) 

gvp(l,2,l) 

v) 

gvp(l,2,2) 

v) 

gvp (1 ,2,3) 
gvp(l,3,0) 
gvp(l ,3, 1) 
gvp(l,3,2) 
gvp (1 ,3,3) 
gvp (2, 0,0) 
v) 

gvp(2,0, 1) 
v) 

gvp(2,0,2) 


-byuv03*ety(kv, jv,l) 
-byuvlO*ety(kv, jv, 1) 
-byuvll*ety(kv, jv,l) 
-byuvl2*ety (kv , j  v , 1) 
-byuvl3*ety (kv , j  v , 1 ) 
-byuv20*ety(kv, jv, 1) 
-byuv21*ety (kv, jv, 1) 
-byuv22*ety (kv , j  v , 1) 
-byuv23*ety (kY , j  v , 1) 
-by uv30*ety (kv , j  v , 1 ) 
-1>> uv31*ety  (k« ,  jv  ,1) 
-byuv32*ety (kv , j  v , 1) 


-bxuv03*etx(kv, 
-bxuvlO*etx(kv, 
-bxuvll*etx(kv, 
-bxuvl2*etx(kv, 
-bxuvl3*etx(kv, 
-bxuv20*etx (kv , 
-bxuv21*etx(kv, 
-bxuv22*etx(kv, 
-bxuv23*etx(kv, 
-bxuv30*etx (kv , 
-bxuv31*etx(kv, 
-bxuv32*etx(kv, 


il))/rdj (kv, jv) 
,l))/rdj(kv, jv) 
,D)/rdj(kv,jv) 
,l))/rdj(kv, jv) 
,l))/rdj(kv, jv) 
1 1) )  /rdj (kv , j v) 
,l))/rdj(kv, jv) 
,l))/rdj(kv,jv) 
1 1)  ) /rdj (kv , j v) 
,l))/rdj(kv, jv) 
,l))/rdj(kv. jv) 
,l))/rdj(kv, jv) 


=  (-ety (kv , j  v , 1) *txyvd00-etx (kv , j  v , 1) *txxvd00) /rd j (kv , , 
=  (-ety (kv, jv, 1) *txyvd01-etx (kv , jv, 1) *txxvd01) /rdj (kv, 

=  (-ety (kv , j  v , 1) *txyvd02-etx (kv , j  v , 1) *txxvd02) /rdj (kv , 

=  0 

=  (-ety (kv , j  v , 1) *txy vdlO-etx (kv , j  v , 1) *txxvdlO) /rdj (kv , , 
=  (-ety(kv, jv,l)*txyvdll-etx(kv, jv,l)*txxvdll) /rdj (kv, , 
=  (-ety (kv , j v, 1) *txyvdl2-etx (kv , j v , 1) *txxvdl2) /rdj (kv , , 
=  0 

=  (-ety (kv , j v , 1) *txyvd20-etx (kv , j v , 1) *txxvd20) /rdj (kv , 

=  (-ety (kv, jv, 1) *txyvd21-etx (kv, jv, 1) *txxvd21) /rdj (kv, 

=  (-ety (kv, j v, 1) *txyvd22-etx(kv, jv, 1) *txxvd22) /rdj (kv, j 


=  (-ety (kv , j v , 1) *tyyvdOO-etx (kv , j v , 1) *txyvd00) /rdj (kv , j 
=  (-ety (kv , j  v , 1) *tyyvd01-etx (kv , j v , 1) *txyvd01) /rdj (kv , j 
=  (-ety (kv, jv, 1) *tyyvd02-etx(kv. jv, 1) *txyvd02) /rdj (kv . j 


gvp(2,0,3)  =  0 

gvp (2,1,0)  =  (-ety (kv , j v , 1) *tyyvdlO-etx (kv ,  j  v ,  1) *txyvdl0) /rd j (kv , j 
1  v) 

gvp (2 , 1 , 1)  =  (-ety (kv , j v , 1) *tyyvdll-etx (kv , j v , 1) *txyvdll) /rd j (kv , j 
v) 

gvp(2,l,2)  =  (-ety(kv, jv,l)*tyyvdl2-etx(kv, jv,l)*txyvdl2)/rdj (kv, j 
v) 

gvp (2, 1,3)  =  0 

gvp(2,2,0)  =  (-ety(kv, jv,1)*tyyvd20-etx(kv, jv,l)*txyvd20)/rdj (kv, j 
v-) 

gvp (2.2,1)  =  (-ety (kv , j  v , 1) * tyyvd21-etx (kv , j  v , 1) *txyvd21) /rd j (kv , j 
v) 

gvp (2, 2, 2)  =  (-ety(kv, jv,l)*tyyvd22-etx(kv, jv,l)*txyvd22)/rdj (kv, j 

v) 

gvp (2, 2, 3)  =  0 
gvp (2, 3,0)  =  0 
gvp(2,3, 1)  =  0 
gvp (2,3,2)  =  0 
gvp (2, 3, 3)  =  0 

gvp(3,0,0)  =  (-byvd00*ety(kv, jv,l)-bxvd00*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,0,l)  =  (~byvd01*ety(kv, jv,l)-bxvd01*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,0,2)  =  (-byvd02*ety (kv, jv,l)-bxvd02*etx(kv, jv,l))/rdj (kv, jv) 

gvp (3, 0,3)  =  (-byvd03*ety(kv, jv,l)-bxvd03*etx(kv„ jv,l))/rdj (kv, jv) 

gvp(3,l,0)  =  (-byvdlO*ety (kv, jv,l)-bxvdlO*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,l,l)  =  (-byvdll*ety(kv, jv,l)-bxvdll*etx(kv, jv,l))/rdj (kv, jv) 

gvp (3, 1,2)  =  (-byvdl2*ety(kv, jv,l)-bxvdl2*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,l,3)  =  (-byvdl3*ety(kv, jv, l)-bxvdl3*etx(kv, jv,l))/rdj (kv, jv) 

gvp (3, 2,0)  =  (~byvd20*ety(kv, jv,l)-bxvd20*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,2,l)  =  (-byvd21*ety(kv, jv,l)-bxvd21*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,2,2)  =  (-byrd22*ety(kv, jv,l)-bxvd22*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,2,3)  =  (-byvd23*ety(kv, jv,l)-bxvd23*etx(kv, jv,l))/rdj (kv, jv) 

gvp(3,3,0)  =  (-byvd30*ety(kv, jv,l)-bxvd30*etx(kv, jv,l))/rdj (kv, jv) 

gvp (3, 3, 1)  =  0 

gvp  (3, 3, 2)  =  0 

gvp (3, 3, 3)  =  0 

gvu (0,0,0)  =  0 

gvu (0,0,1)  =  0 

gvu (0,0,2)  =  0 

gvu(0,0,3)  =  0 

gvu (0,1,0)  =  0 

gvu(0,l,l)  =  0 

gvu (0, 1 ,2)  =  0 

gvu(0, 1,3)  =  0 

gvu (0,2,0)  =  0 

gvu(0,2,l)  =  0 

gvu (0,2, 2)  =  0 

gvu (0,2, 3)  =  0 

gvu (0,3,0)  =  0 

gvu (0,3,1)  =  0 

gvu (0,3,2)  =  0 

gvu (0,3,3)  =  0 

gvu(l,0,0)  =  (-ety (kv, jv, 1) *txyvu00-etx(kv, jv, 1) *txxvu00)/rdj (kv, j 

gvu(l ,0, 1)  =  (-ety(kv, jv, 1) *txyvu01-etx(kv, jv, 1) *txxvu01)/rdj (kv, j 

v) 

gvu(l,0,2)  =  (-ety(kv, jv, 1) *txyvu02-etx(kv, jv,l)*txxvu02)/rdj (kv, j 

y) 


gYll(l,l,0)  = 

v) 

gvu(l,l,l)  = 

v) 

gvu(l,l,2)  = 

v) 

gvu(l,l,3)  = 
gvu(l,2,0)  = 
1  v) 

gvu(lJ2,l)  = 
1  v) 

gvu(l,2,2)  = 
1  v) 

gvu(l,2,3)  = 
gvu(l,3,0) 
gvu(l,3,l) 
gvu(l,3,2) 
gvu(l,3,3) 
gvu(2,0,0) 
v) 

gvu(2,0,l)  = 
v) 

gvu(2,0,2)  : 

■  v) 

gvu(2,0,3) 

gvu(2,l,0) 

L  v) 
gvu(2,l,l) 

L  v) 
gvu(2, 1 ,2) 

L  v) 
gvu(2,lf3) 
gvu(2,2,0) 

1  v) 
gvu(2f2,l) 

1  v) 
gvu(2,2,2) 

1  v) 
gvu(2,2,3) 
gvu(2,3,0) 
gvu(2,3,l) 
gvu(2,3,2) 
gvu(2,3,3) 
gvu(3,0,0) 
gvu(3,0,l) 
gYu(3,0,2) 
gvu(3,0,3) 
gvu(3,l,0) 
gvu(3,l,l) 
gvu(3,l,2) 
gvu(3, 1 ,3) 
gvu(3,2,0) 
gvu(3,2,l) 
gvu(3,2,2) 
gvu(3,2,3) 
gvu(3,3,0) 
gvu(3,3,l) 
gvu(3,3,2) 
gvu(3,3,3) 


-e ty (kv , j  v , 1 ) ♦txy vulO-etx (kv , j  v , 1) *  txxvulO) /rd j (kv , j 
-ety (kv , j  v , 1) ♦txyvull-etx (kv , j v , 1) ♦txxvull) /rd j (kv , j 
-ety (kv , j v , 1) ♦txyvul2-etx (kv , jv , 1) *txxvul2) /rdj (kv , j 

-ety (kv , j  v , 1) * txy vu20-etx (kv , j v , 1) * txxvu20) / rdj (kv , j 
--ty (kv ,  j  v ,  1) *txyvu21-etx (kv , j v , 1) ♦txxvu21) /rdj (kv , j 
-ety (kv, jv, 1) *txyvu22-etx(kv, jv, 1) *txxvu22) /rd j (kv , j 


-ety (kv , j v , 1) ♦tyyvuOO-etx (kv, jv , 1) *txyvuOO) /rdj (kv , j 
-ety (kv , j  v , 1) *tyy vuOl-etx (kv , j  v , 1) *txyvu01) /rdj (kv , j 
-ety (kv , j v , 1) *tyyvu02-etx (kv , j v, 1) *txyvu02) /rdj (kv , j 

-ety (kv , j  v , 1) ♦tyyvulO-etx (kv , j v , 1) ♦txyvulO) /rdj (kv , j 
-ety (kv, jv, 1) ♦tyyvull-etx (kv, jv, 1) *txyvull) /rdj (kv, j 
-ety (kv , j  v , 1) *tyy vul2-etx (kv , j v , 1) ♦txy vul2) / rdj (kv , j 

i 

-ety (kv , j  v , 1) *tyyvu20-etx (kv , j  v , 1) ♦txy vu20) /rdj (kv , j 
-ety (kv , j  v , 1) *tyyvu21-etx (kv , j  v , 1) *txyvu21) /rdj (kv , j 
-ety (kv , j v , 1) *tyyvu22-etx (kv , j v , 1) *txyvu22) / rdj (kv , j 


-  byvuOO*ety(kv, jv,l)- 
-byvuOl *ety (kv , j  v , 1)  • 
-byvu02*ety (kv , j v , 1) 
-byvu03 ♦ety (kv ,  j  v ,  1 )  ■ 
-byvulO*ety (kv , j  v ,  1) 
-byvull*ety (kv , j v, 1) 

-byvul2^ety(kv, jv,l) 
-byvul3^ety(kv, jv,l) 
-byvu20%ety (kv , j  v , 1) 
-by vu2 1 ♦ e ty (kv , j v , 1 ) 
-byvu22+ety (kv , j v , 1) 
-byvu23^ety(kv, jv,l) 
-byvu30^ety (kv , j  v , 1) 
-byvu31^ety (kv , j v, 1) 
-byvu32^ety(kv, jv, 1) 


-bxvuOO^etx(kv, 
-bxvu01>etx(kv, 
-bxvu02^etx (kv , 
-bxvu03^etx(kv, 
-bxvulO^etx (kv , 
-bxvull+etx(kv, 
-bxvul2^etx(kv, 
-bxvul3^etx(kv, 
-bxvu20^etx (kv , 
-bxvu21^etx(kv, 
-bxvu22+etx (kv , 
-bxvu23^etx(kv, 
-bxvu30*etx (kv , 
-bxvu31^etx(kv, 
-bxvu32#etx (kv , 


jv,l))/rdj (kv, jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj(kv,jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj(kv,jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj(kv, jv) 
jv,l))/rdj (kv, jv) 
jv,l))/rdj(kv,jv) 
jv,l))/rdj(kv,jv) 
jv,l))/rdj (kv, jv) 
,jv,l))/rdj (kv, jv) 
i  jv,l))/rdj (kv, jv) 
> jv,l))/rdj (kv, jv) 


I 


gvv(0,0,0) 
gw(0,0(l) 
gvv (0,0,2) 
gvv(0,0,3) 
gvv(0,l,0) 

gYY (0,1,1) 

gw(0,l,2) 
gvv(0,l,3) 
gw  (0,2,0) 
gvv (0,2,1) 
gvv (0,2, 2) 
gvv (0,2,3) 
gvv (0,3,0) 
gvv (0,3, 1) 
gvv (0,3, 2) 
gvv (0,3, 3) 
gvv(l,0,0) 
v) 

gvv(l,0,l) 

v) 

gvv(l,0,2) 

v) 

gvv(l,0,3) 

gw(l  ,1,0) 

v) 

gw(l,l,l) 

v) 

gw(l,l,2) 

v) 

gw(l  ,1,3) 
gw(l,2,0) 
v) 

gvv (1,2,1) 

v) 

gvv (1,2, 2) 

v) 

gvv (1,2, 3) 
gvv(l,3,0) 
gw(l,3, 1) 
gvv (1,3, 2) 
gw(l,3,3) 
gw(2,0,0) 
v) 

gw(2,0, 1) 

v) 

gvv (2, 0,2) 

v) 

gvv(2,0,3) 
gvv (2, 1,0) 

v) 

gvv(2, 1 , 1) 
1  v) 
gvv (2, 1 ,2) 
1  v) 
gvv (2, 1 ,3) 
gvv (2, 2,0) 
v) 

gw(2,2, 1) 


=  (-ety (kv , j  v , 1) *txyvv00-etx (ky , j  v , 1) * txxvvOO) /rd j (kv , j 


-ety (kv , j  v , 1) * txy vvOl -etx (ky , j  v , 1) * txxvvOl) /rd j (kv , j 


=  (-ety(kv, jv, 1) *txyvv02-etx(kv, jv, 1) *txxvv02)/rdj (kv, j 


=  (-ety (kv , j  v , 1) *txyvvlO -etx (kv , j v , 1) *txxvvlO) / rd j (kv , j 


-ety (kv, j v , 1) *txyvvll-etx (kv , j v, 1) *txxvvll) /rdj (kv , j 


-ety (kv , j v , 1) *txyvvl2-etx (kv , j  v , 1) *txxvvl2) /rdj (kv , j 


-ety (kv , j  v , 1) *txyvv20-etx (kv , j  v , 1) *txxvv20) / rdj (kv , j 


=  (-ety (kv , j v , 1) *txyvv21-etx (kv , j v , 1) *txxvv21 ) /rdj (kv , j 


=  (-ety (kv , j v , 1) *txyvv22-etx (kv , j v , 1) *txxvv22) /rdj (kv , j 


-ety (kv , j  v , 1 ) * tyyvvOO-etx (kv , j  v , 1 ) ♦ txy vvOO) /rdj (kv , j 


-•  (-ety(kv,jv,l)*  ty y vvOl -etx(kv,jv,l)*  txy vvOl )/rdj(kv,j 


=  (~ety(kv, jv, l)*tyyvv02-etx(kv, jv,l)*txyvv02)/rdj (kv, j 


=  (~ety (kv , j v , 1) *tyyvvlO-etx (kv, j v , 1) *txyvvl0) /rdj  (kv ,  j 


=  (-ety(kv, jv,l)*tyyvvll-etx(kv, jv,l)*txyvvll)/rdj (kv, j 


=  (-ety (kv , j v , 1) *tyyvvl2-etx (kv, jv , 1 ) *txyvvl2) /rdj (kv , j 


-ety (kv, j  v , 1) *tyyvv20-etx (kv , j v, 1 ) *txyvv2C) /rdj (kv, j 


ety (kv , j v , 1 ) *tyyvv2J -etx (kv , j v , 1) *txyvv2J ) j rdj  (kv , j 


gvv(2,2,2) 
1  v) 
gvv(2,2,3) 
gw(2,3,0) 
gvv(2,3,l) 
gvv (2, 3, 2) 
gvv (2, 3, 3) 
gvv(3,0,0) 
gvv(3,0,l) 
gvv(3,0,2) 
gvv(3,0,3) 
gvv (3, 1,0) 
gvv(3,l,l) 
gvv(3,l,2) 
gvv(3,l,3) 
gvv(3,2,0) 
gvv(3,2,l) 
gvv (3,2,2) 
gvv(3,2,3) 
gvv (3,3,0) 
gvv(3,3,l) 
gvv (3, 3, 2) 
gvv (3,3,3) 


=  (-ety (kv , j  v , 1) *tyyw22-etx (kv , j  v , 1) *txyvv22) /rd j (kv , j 


(-byvv00*ety (kv , j  v , 1) 
(-byvvOlvety (kv , j  v , 1 ) 
(~byvv02*ety (kv , j  v , 1) 
(~byvv03+ety (kv, jv,l) 
(-byvvlOoety (kv , j v , 1) 
(-byvvll*ety (kv , j v, 1) 
(-byvvl2*ety(kv, jv,l) 
(-byvvl3*ety(kv, jv,l) 
(-by vv20*ety (kv , j  v , 1) 
(-byvv21*ety (kv , j  v , 1) 
(-byvv22*ety (kv , j  v , 1) 
(-byvv23*ety(kv, jv,l) 
(-byvv30*ety (kv, jv,l) 
(-byvv31*ety (kv, jv,l) 
(-byvv32*ety (kv , j v , 1) 
0 


-bxvvOO*etx (kv , j  v , 1 ) ) /rd j (kv , j  v ) 
-bx7v01*etx(kv, jv,l))/rdj (kv, jv) 
-bxvv02*etx (kv , j  v , 1 ) ) /rd j (kv , j  v) 
-bxvv03*etx (kv , j  v , 1) ) /rd j (kv , j  v) 
-bxvvlOvetx (kv , j v , 1) ) /rd j (kv , j  v) 
-bxvvll*etx(kv, jv, l))/rdj (kv, jv) 
-bxvvl2*etx(kv, j v, 1) ) /rd j (kv , j v) 
-bxvvl3*etx(kv,  jv,l))/rdj  (kv,  ’,r) 
-bxvv20*etx (kv , j v , 1) ) / rd j (kv , j  v) 
-bxvv21*etx (kv , j v , 1) ) /rd j (kv , j  v) 
-bxvv22*etx (kv , j  v , 1) ) / rd j (kv, jv) 
-bxvv23*etx(kv, jv, l))/rdj (kv , jv) 
-bxvv30*etx (kv , j v , 1) ) /rd j (kv , j  v) 
-bxvv31*etx (kv , j  v , 1) ) /rd j (kv , j  v) 
-bxvv32*etx (kv , j v , 1) ) /rd j (kv , j  v) 


setup  for  third  jacobians 


duzddd (0,0,0)  =  - (6*roudzt (kv , j  v) *rho (kv , j  v , 1) -24*rhodzt (kv , j  v) *rh 

1  ou(kv, jv,l))/rho(kv, jv,l)**5 

duzddd(0,0, 1)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
duzddd (0,1,0)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
duzddd (1 ,0,0)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
duzddu (0,0,0)  =  -6*rhou(kv,jv,l)/rho(kv, jv,l)**4 
duzddu (0,0,1)  =  2/rho(kv, jv,l)**3 
duzddu (0, 1,0)  =  2/rho (kv , j v, 1)  **3 
duzddu (1 ,0,0)  =  2/rho(kv, jv,l)**3 
duzdud (0,0,0)  =  -6*rhou (kv , j  v , 1) / rho (kv , j  v , 1)  *  *4 
duzdud (0,0, 1)  =  2/rho (kv ,  j  v ,  1 )  *  *3 
duzdud (0, 1 ,0)  =  2/rho(kv, jv,l)**3 
duzdud (1 ,0,0)  =  2/rho(kv, jv,l)**3 
duzudd (0,0, C)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)*+4 
duzudd (0, 0, 1)  =  2/rho(kv, jv,l)**3 
duzudd (0,1,0)  =  2/rho(kv, jv,l)**3 
duzudd (1 ,0,0)  =  2/rho(kv, jv,l)**3 

dueddd (0,0,0)  =  - (6*roudet  (kv , j v) *rho (kv , j  v , 1) -24*rhodet (kv , j  v) *rh 

1  ou(kv, jv,l))/rho(kv, jv,l)**5 
dueddd (0,0,1)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 
dueddd (0,1,0)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 
dueddd (1,0,0)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 

dueddu (0,0,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 

dueddu (0,0, 1)  =  2/rho (kv,jv,l)**3 

dueddu (0, 1 ,0)  =  2/rho(kv, jv,l)**3 

dueddu (1 ,0,0)  =  2/rho (kv, jv, 1) **3 

duedvd (0,0,0)  =  -6*rhou(kv, jv, l)/rho(kv, jv,l)**4 

duedvd(0,0,l)  =  2/rho (kv, jv, 1) **3 

duedvd (0, 1 ,0)  =  2/rho (kv, jv, 1) **3 

duedvd (1,0,0)  =  2/rho(kv, jv, 1) **3 

duevdd (0,0,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 

duevdd(0,0, 1)  =  2/rho(kv, jv, 1) **3 

duevdd(0,l,0)  =  2/rho(kv, jv, 1)**3 

duevdd(l,0,0)  =  2/rho(kv, jv,l)**3 


dvzddd (0, 
1  ov(kv, 
dvzddd (0, 
dvzddd (0, 
dvzddd (2, 
dvzddu (0, 
dvzddu (0, 
dvzddu (0, 
dvzddu (2, 
dvzdud(0, 
dvzdud(0, 
dvzdud(0, 
dvzdud(2, 
dvzudd (0, 
dvzudd(0, 
dvzudd (0, 
dvzudd (2, 


0,0)  =  - (6*rovdzt (kv, j  v) *rho (kv , j v , 1) -24*rhodzt (kv , j v) *rh 

jv,l))/rho(kv, jv,l)**5 

0,2)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)+*4 

2,0)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)*+4 

0,0)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 

0,0)  =  -8*rhov (kv , j v , 1) / rho (kv , j v , 1) **4 

0,2)  =  2/rho(kv, jv,l)**3 

2,0)  =  2/rho(kv, jv,l)**3 

0,0)  -  2/rho(kv, jv,l)**3 

0,0)  =  -6*rhov(kv, jv, l)/rho(kv. jv,l)**4 

0,2)  =  2/rho(kv, jv,l)**3 

2,0)  =  2/rho(kv, jv,l)**3 

0,0)  =  2/rho(kv, jv,l)**3 

0,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 

0,2)  =  2/rho(kv, jv, 1) **3 

2,0)  =  2/rho(kv, jv,l)**3 

0,0)  =  2/rho (kv, jv, 1) **3 


dveddd (0,0,0)  =  - (6*rovdet (kv , j  v) *rho (kv , j  v , 1) -24*rhodet (kv , j  v) *rh 
1  ov(kv, jv,l))/rho(kv, jv,l)**5 
dveddd(0,0,2)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 
dveddd(0,2,0)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 
dveddd(2,0,0)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 
dveddu (0,0,0)  =  -6*rhov(kv, jv, l)/rho(kv, jv,l)**4 
dveddu(0,0,2)  =  2/rho(kv, jv,l)**3 
dveddu(0,2,0)  =  2/rho(kv, jv, 1) **3 
dveddu(2,0,0)  =  2/rho(kv, jv, 1) **3 
dvedvd(0,0,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 
dvedvd(0,0,2)  =  2/rho(kv, jv, 1) **3 
dvedvd (0 , 2 , 0)  =  2/rho(kv, jv, 1) **3 
dvedvd(2,0,0)  =  2/rho(kv, jv,l)**3 
dvevdd (0,0,0)  =  -6*rhov(kv, ;v,l)/rho(kv, jv,l)**4 
dvevdd(0,0,2)  =  2/rho(kv, jv,l)**3 
dvevdd(0,2,0)  =  2/rho(kv, jv, 1) **3 
dvevdd(2,0,0)  =  2/rho(kv, jv,l)**3 

pddd (0,0,0)  =  (rhov (ky ,jv,l)**2* (3*gamma-3) +rhou (kv ,jv,l)**2* (3*ga 
1  mma-3))/rho(kv, jv,l)**4 

pddd(0,0,l)  =  -rhou(kv, jv, 1) * (2*gamma-2)/rho(kv, jv,l)**3 

pddd(0,0,2)  =  -rhov(kv, jv,l)*(2*gamaa-2)/rho(kv, jv,l)**3 

pddd(0,l,0)  =  -rhou(kv, jv,l)*(2*ganma-2)/rho(kv, jv,l)**3 

pddd (0,1,1)  =  (gamma-1) /rho (kv , jv,l)* *2 

pddd(0,2,0)  =  -rhov(kv, jv,l)*(2*gamma-2)/rho(kv, jv,l)**3 

pddd(0,2,2)  =  (gamma- 1) /rho (kv, jv,l)**2 

pddd(l,0,0)  =  -rhou(kv, jv,l)*(2*gamma-2)/rho(kv,  jv,l)**3 

pddd(l,0,l)  =  (gamma-1) /rho (kv,jv,l)**2 

pddd(l,l,0)  =  (gamma-1) /rho (kv, jv,l)**2 

pddd(2,0,0)  =  -rhov(kv, jv,l)*(2*gamma-2)/rho(kv, jv,l)**3 

pddd(2,0,2)  =  (gamma- 1) /rho (kv, jv,l)**2 

pddd(2,2,0)  =  (gamma-1) /rho (kv, jv,l)**2 

dezddd (0,0,0)  =  - (60*rhodzt (kv , j  v) *rhov (kv , j  v , 1) **2+rho (kv , j  v , 1)  +  ( 

1  -24*rovdzt(kv, jv)*rhov(kv, jv,l)-24*roudzt(kv, jv)*rhou(kv, jv,l)- 

2  24*  rhodzt (kv , j  v) *rhoe (kv , j  v , 1) ) +60*rhodzt (kv , j  v) *rhou (kv , j  v , 1) * 

3  *2+6*roedzt (kv , j v) *rho (kv , j v , 1) **2) / rho (kv , j v , 1) **6 

dezddd (0,0,1)  =  - (6*roudz t (kv , j  v) *rho (kv , j  v , 1) -24*rhodzt (kv , j  v) *rh 
1  ou(kv, jv,l))/rho(kv, jv,l)**S 

dezddd (0,0,2)  =  - (6*rovdzt (kv , j v) *rho (kv , j v , 1) -24*rhodzt (kv , j v) *rh 
1  ov(kv, jv,l))/rho(kv, jv,l)**5 
dezddd(0,0,3)  =  -8*rhodzt(kv, jv)/rho(kv, jv,l)**4 
dezddd (0,1,0)  =  - (6*roudzt (kv , j v) *rho (kv , jv , 1) -24*rhodzt (kv , j v) *rh 
1  ou(kv, jv,l))/rho(kv, jv,l)**5 
dezddd(0,l,l)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
dezddd (0,2,0)  =  - (6*rovdzt (kv , j v) *rho (kv , j  v , 1) -24*rhodzt (kv , j  v) *rh 
1  ov(kv, jv,l))/rho(kv, jv,l)**5 

dezddd(0,2,2)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
dezddd(0,3,0)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
dezddd (1 ,0,0)  =  - (6*roudzt (kv , j v) *rho (kv , j v , 1) -24*rhodzt (kv , j v) *rh 
1  ou(kv, jv,l))/rho(kv, jv,l)**5 
dezddd(l,0,l)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
dezddd(l,l,0)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
dezddd (2,0,0)  =  - (6*rovdzt (kv , j  v) *rho (kv , j  v , 1 ) -24*rhodzt (kv , j  v) *rh 
1  ov(kv, jv, l))/rho(kv, jv,l)**5 
dezddd(2,0,2)  =  -6*rhodzt(kv , jv)/rho(kv , jv, 1) **4 
dezddd (2, 2,0)  =  -6*rhodzt(kv, jv)/rho(kv, jv,l)**4 
dezddd (3,0,0)  =  -6*rhodzt(kv , j v)/rho(kv, jv, 1) **4 


deeddu (0,0,0)  =  -(-12*rhov(kv, jv, l)**2-12*rhou(kv, jv,l) **2+6*rbo(k 

1  v,jv,l)*rhoe(kv,jv,l))/rho(kv,jy,l)**5 

dezddu(0,0, 1)  =  -6*rhou(kv, jv, l)/rho(kv, jv,l)**4 

dezddu (0,0,2)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 

dezddu(0,0,3)  =  2/rho(kv, jv,l)**3 

dezddu (0,1,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 

dezddu (0, 1 , 1)  =  2/rho(kv, jv,l)**3 

dezddu (0,2,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 

dezddu (0,2, 2)  =  2/rho(kv, jv,l)**3 

dezddu (0,3,0)  =  2/rho(kv, jv,l)**3 

dezddu (1,0,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 

dezddu(l ,0, 1)  =  2/rho(kv, jv,l)**3 

dezddu (1 ,1,0)  =  2/rho(kv, jv,l)**3 

dezddu(2,0,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 

dezddu (2, 0,2)  =  2/rho(kv , j v, 1) **3 

dezddu (2,2,0)  =  2/rho(kv, jv,l)**3 

dezddu (3, 0,0)  =  2/rho(kv, jv,l)**3 

dezdud (0,0,0)  =  - (-12*rhov (kv , j  v , 1) **2- 12*rhou (kv , j  v , 1) *  *2+6*rho (k 

1  v ,  j  v ,  1)  *rhoe  (kv ,  j  v ,  1)  )  /  rho  (kv ,  j  v ,  1)  *  *5 

dezdud (0,0,1)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 
dezdud (0,0,2)  =  -6*rhov(kv, j v, l)/rho(kv, jv,l)**4 
dezdud (0,0, 3)  =  2/rho(kv, jv,l) **3 
dezdud (0, 1 ,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 
dezdud (0, 1 , 1)  =  2/rho(kv, jy,l)**3 
dezdud (0,2,0)  =  -6+rhov(kv, jv,l)/rho(kv, jv,l)**4 
dezdud (0,2,2)  =  2/rho(kv, jv,l)**3 
dezdud (0,3,0)  =  2/rho(kv, jv,l)**3 
,dezdud(l ,0,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 
dezdud (1,0,1)  =  2/rho(kv, jv,l)**3 
dezdud (1,1,0)  =  2/rho(kv, jv,l)**3 
dezdud (2, 0,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 
dezdud(2,0,2)  =  2/rho(kv, jv, 1) **3 
dezdud (2,2,0)  =  2/rho(kv, jv,l) **3 
dezdud (3, 0,0)  =  2/rho(kv, jv,l)**3 

dezudd (0,0,0)  =  -(-12*rhov(kv, jv,l)**2-12*rhou(kv, jv, 1) **2+6*rho(k 
1  v ,  j  v , 1) *>rhoe (kv , j v , 1) ) /rho (kv , j  v , 1) *+5 

dezudd (0,0,1)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 
dezudd (0,0, 2)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 
dezudd (0,0,3)  =  2/rho(kv, jv,l)**3 
dezudd (0, 1 ,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 
dezudd (0,1,1)  =  2/rho(kv, jv,l)**3 
dezudd (0,2,0)  =  -6*rhov(kv, jv, l)/rho(kv, jv,l)**4 
dezudd (0,2,2)  =  2/rho(kv, jv,l)**3 
dezudd(0,3,0)  =  2/rho(kv, jv,l)**3 
dezudd (1,0,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 
dezudd (1,0,1)  =  2/rho(kv , jv, 1) **3 
dezudd (1,1,0)  =  2/rho(kv, jv,l)**3 
dezudd (2, 0,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 
dezudd (2,0, 2)  =  2/rho(kv, jv, 1) **3 
dezudd (2, 2,0)  =  2/rho(kv, jv, 1) **3 
dezudd (3, 0,0)  =  2/rho(kv, jv,l)**3 

deeddd (0,0,0)  =  - (60*rhodet (kv , j  v) *rhov (kv , j v , 1) **2+rho (kv , j v , 1) * ( 

1  -24*rovdet (kv , j v) *rhov(kv, j v, 1) -24*roudet(kv , jv) *rhou(kv, jv, 1;- 

2  24*rbodet (kv , j v) *rhoe (kv , j v, 1) ) +60*rhodet (kv , jv) *rhou(kv , jv, 1) * 

3  *2+6*roedet (kv , j v) *rho(kv, j v, 1) **2) /rho(kv, jv, 1)  **6 

deeddd (0,0,1)  =  - (6*roudet (kv ,  j  v) *rho (kv , j v , 1) -24*rhodet (kv , j  v) *rh 
1  ou(kv,  j v,  1) )  /rho(kv,  jv,  1)  *+5  .  t  , 

deeddd (0,0, 2)  =  - (6*rovdet(kv , jv) *rho(kv, jv, l)-24*rhodet(kv, jv) *rh 


1  ov(ky,  jv,l))/rho(kv,Jv»l)**J> 
deeddd  (0,0,3)  =  -6*rhodet(kv,  jr)/rlio(ky,3Y,l)**4 
deeddd (0,1,0)  =  - (6*roudet (kv , j  v) *rho (kv ,  3  v ,  1) -24*rhodet (kv , 3  v) *rh 
1  ou(kv,jv,l))/rbo(kv,jv,l)**5 
deeddd (0, 1 , 1)  =  -6*rhodet(kv,3v)/rbo(kv,3V,l)**4 

deeddd (0,2,0)  =  - (6*rovdet (kv , j  v) *rho (kv , 3  v , 1) -24*rhodet (kv , 3 v)  *rh 
1  ov(kv,jv,l))/rho(kv,jv,l)**5  .  , 

deeddd (0,2,2)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 
deeddd (0,3,0)  =  -6*rhodefc(kv, jv)/rho(ky, jy,l)**4 
deeddd (1 ,0,0)  =  - (6*roudet (kv , j  v) *rbo (kv , 3 v , 1) -24*rhodefc (kv , 3 v) *rh 

1  ou(kv,jv,l))/rho(kv,jv,l)**5  .  . 

deeddd(l ,0, 1)  =  -6*rhodet(kv, jv)/rho(kv,3Y,l)  **4 
deeddd (1 ,1 ,0)  =  -6*rhodet(kv, jv)/rho(kv, jv,l)**4 

deeddd (2,0,0)  =  - (6*rovdet (kv , 3  v) *rbo (kv , jr , 1) -24*rhodet (kv , 3  v) *rh 

1  ov(kv, jv,l))/rho(kv, jv,l)**5  .  , 

deeddd (2,0,2)  =  -6*rhodet(kv,3v)/rho(kv,3v,l)**4 
deeddd (2, 2,0)  =  -6*rbodet(kv, jv)/rho(kv, jv,l)**4 
deeddd (3, 0,0)  =  ~6*rhodet(kv, jv)/rho(kv, jv,l)**4 

deeddu (0,0,0)  =  - (-12*rbov (kv , j  v , 1) *  *2-12*rhou (kv , 3 v , 1) **2+6*rho (k 

1  v, jv,l)*rhoe(kv,jv,l))/rho(kv,jv,l)**5 

deeddu (0,0,1)  =  -6*rbou(kv, jv,l)/rho(kv, jv,l)**4 

deeddu (0,0, 2)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 

deeddu(0,0,3)  =  2/rho(kv, jv,l)**3 

deeddu (0,1,0)  =  -6n-bou(kv,  jv,l)/rho(kv,  jv,l)**4 

deeddu (0,1,1)  =  2/rho(kv,jv, 1)**3 

deeddu (0,2,0)  =  -6*rhov(kv, jv,l)/rho(kv,jv,l)**4 

deeddu (0,2, 2)  =  2/rho(kv,jv, 1)**3 

deeddu (0,3,0)  =  2/rho(kv, jv,l)**3 

deeddu(l ,0,0)  =  -6*rhou(kv, jv,l)/rho(kv,jT,l)**4 

deeddu(l ,0, 1)  =  2/rho(kv, jv,l)**3 

deeddu (1 ,1,0)  =  2/rho(kv, jv, 1)**3 

deeddu (2, 0,0)  =  -6*rhov(kv,jv,l)/rho(kv,3v,l)**4 

deeddu (2, 0,2)  =  2/rbo(kv, jv,l)**3 

deeddu (2, 2,0)  =  2/rho(kv, jv,l)**3 

deeddu (3, 0,0)  =  2/rho(kv, jv,l)**3 

deedvd (0,0,0)  =  -(-12*rbov(kv, jv,l)**2-12*rhou(kv,3v,l)**2+6*rho(k 
1  v, jv,l)*rhoe(kv,jv,l))/rho(kv, jv,l)**5 
deedvd (0, 0, 1)  =  -6*rbou(kv, jv,l)/rho(kv, jv,l)**4 
deedvd (0,0,2)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 
deedvd (0,0, 3)  =  2/rho(kv, jv,l)**3 
deedvd (0,1,0)  =  ~6*rhou(kv, jv,l)/rho(kv,jv,l)**4 
deedvd (0,1,1)  =  2/rho(kv, jv, 1) **3 
deedvd (0,2,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 
deedvd (0,2, 2)  =  2/rho(kv, jv, 1)  **3 
deedvd (0,3,0)  =  2/rho(kv, jv, 1)  **3 
deedvd (1 ,0,0)  =  -6*rbou(kv, jv,l)/rho(kv, jv,l)**4 
deedvd(l,0,l)  =  2/rho(kv, jv,l)**3 
deedvd (1,1,0)  =  2/rho(kv, jv,l)**3 
deedvd (2, 0,0)  =  -6*rbov(kv, jv,l)/rho(kv, jv,l)**4 
deedvd (2,0,2)  =  2/rho(kv, jv,l)**3 
deedvd(2,2,0)  =  2/rbo(kv, jv,l)**3 

deedvd (3,0,0)  =  2/rho(kv, jv, 1) **3  .  •  u  n. 

deevdd (0,0,0)  =  -  (~12*rhov(kv, j v, 1) **2-12*rhou(kv , jr, 1) **2+6*rbo(k 
1  v ,  j  v , 1) *rhoe (kv , j v , 1) ) / rho (kv , j  v , 1) 

deevdd (0, 0, 1)  =  -8*rhou(kv, jv,l)/rho(kv, jv,l)**4 
deevdd (0,0,2)  =  -6*rhov(kv, j v, l)/rho(kv, jv,l)**4 
deevdd (0,0,3)  =  2/rbo(kv, jv,l)**3 
deevdd (0,1,0)  =  -8«.rhou(kv,  jv,l)/rbo(kv,  jv,l)**4 
deevdd (0, 1,1)  =  2/rho(kv, jv, 1) **3 


deevdd (0,2,0)  =  -6*rhov(kv, jv,l)/rho(kv, jv,l)**4 
deevdd(0,2,2)  =  2/rho(kv, jv,l)**3 
deevdd(0,3,0)  =  2/rho(kv, jv, 1) **3 
deevdd(l,0,0)  =  -6*rhou(kv, jv,l)/rho(kv, jv,l)**4 
deevdd(l,0,l)  =  2/rho(kv, jv,l)**3 
deevdd(l,l,0)  =  2/rho(kv, jv,l)**3 
deevdd(2,0,0)  =  -6*rhov(kv, jv, l)/rho(kv, jv,l)**4 
deevdd (2, 0,2)  =  2/rho(kv, jv, 1) **3 
deevdd (2, 2,0)  =  2/rho(kv, jv,l)**3 
deevdd(3,0,0)  =  2/rho(kv, jv, 1) **3 

txxddd (0,0,0)  =  -rrmu (kv , j  v) * (2+dvzddd (0 , 0 , 0) * zty (kv , j  v , 1) -4*duzdd 

1  d(0,0,0)*ztx(kv, jv,l) +2*dveddd (0,0,0) *ety(kv, jv,l) -4*dueddd (0,0 

2  ,0)*etx(kv, jv,l))/3.0 

txxddd (0,0,1)  =  rrmu (kv , j  v) * (4*duzddd (0 , 0 , 1)  *  z  tx  (kv ,  j  v ,  1) +4*dueddd 
1  (0,0,l)*etx(kv, jv,l))/3.0 

txxddd (0,0,2)  =  -rrmu (kv , j  v) * (2*dvzddd (0,0,2) *zty (kv , j  v , 1) +2*dvedd 
1  d(0,0,2)*ety(kv, jv,l))/3.0 

txxddd (0,1,0)  =  rrmu  (kv , j  v) * (4*duzddd (0,1,0) *ztx (kv , j v , 1) +4*dueddd 
1  (0,l,0)*etx(kv, jv,l))/3.0 

txxddd (0,2,0)  =  -rrmu (kv , j  v) * (2*dvzddd (0,2,0) *zty (kv , j  v , 1) +2*dvedd 
1  d(0,2,0)*ety(kv, jv,l))/3.0 

txxddd (1 ,0,0)  =  rrmu (kv , j  v) * (4*duzddd (1 ,0,0) *ztx (kv , j  v , 1) +4*dueddd 
1  (l,0,0)*etx(kv, jv,l))/3.0 

txxddd (2,0,0)  =  -rrmu (kv , j  v) * (2  *dvzddd (2,0,0) *zty (kv , j  v , 1) +2*dvedd 
1  d(2,0,0)*et) (kv, jv,l))/3.0 

txxddu (0,0,0)  =  -rrmu (kv , j  v) * (2*dvzddu (0,0,0) *zty (kv , j v , 1) -4*duzdd 
1  u(0,0,0)*ztx(kv, jv,l))/3.0 

txxddu(0,0,l)  =  4.0*duzddu(0,0,l)*rrmu(kv, jv)*ztx(kv, jv,l)/3.0 
txxddu(0,0,2)  =  (-2.0)*dvzddu(0,0,2)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
txxddu(0,l,0)  =  4.0*duzddu(0,l,0)*rrmu(kv, jv)*ztx(kv, jv,l)/3.0 
txxddu(0,2,0)  =  (-2.0)*dvzddu(0,2,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
txxddu(l,0,0)  =  4.0*duzddu(l,0,0)*rrmu(kv, jv)*ztx(kv, jv,l)/3.0 
txxddu (2, 0,0)  =  (-2.0)*dvzddu(2,0,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
txxddu (0,0,0)  =  -rrmu (kv , j  v) * (2*dveddv (0,0,0) *ety (kv , j  v , 1) -4*duedd 
1  v(0,0,0)*etx(kv, jv,l))/3.0 

txxddu(0,0,l)  =  4.0+dueddv(0,0,l)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
txxddu (0,0,2)  =  (-2.0) *dyeddv (0,0,2) *rrmu (kv , j  v) *ety (kv , j  v , 1) /3 . 0 
txxddu (0,1,0)  =  4.0*dueddv(0,l,0)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
txxddu (0 , 2 , 0)  =  (-2.0)*dveddv(0,2,0)*rrmu(kv, jv)*ety(kv, jv,l)/3.0 
txxddu(l,0,0)  =  4.0*dueddv(l,0,0)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
txxddu(2,0,0)  =  (-2.0)*dveddv(2,0,0)*rrau(kv, jv)*ety(kv, jv,l)/3.0 
txxdud (0,0,0)  =  -rrmu (kv , j  v) * (2  *dv  zdud (0,0,0)*  zty (kv , j  v , 1) -4*duzdu 
1  d(0,0,0)*ztx(kv, jv,l))/3.0 

txxdud(0,0,l)  =  4.0*duzdud(0,0,l)*rrmu(kv, jv)*ztx(kv, jv,l)/3.0 
txxdud(0,0,2)  =  (-2.0)*dvzdud(0,0,2)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
txxdud(0,l,0)  =  4.0*duzdud(0,l,0)*rrmu(kv, jv)*ztx(kv, jv,l)/3.0 
txxdud (0,2,0)  =  (-2 . 0) *dvzdud (0,2,0) *rrmu (kv , j v) *zty (kv , j  v , 1) /3 . 0 
txxdud(l,0,0)  =  4.0*duzdud(l,0,0)*rrmu(kv, jv)*ztx(kv, jv,l)/3.0 
txxdud (2, 0,0)  =  (~2.0)*dvzdud(2,0,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
txxdvd(0,0,0)  =  -rrmu(kv, jv)*(2*dvedvd(0,0,0)*ety(kv, jv,l)-4*duedv 
1  d(0,0,0)*etx(kv, jv,l))/3.0 

txxdvd(0,0, 1)  =  4.0*duedvd(0,0,l)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
txxdvd (0,0,2)  =  (-2.0) *dvedvd (0,0,2) *rrmu (kv , j v) *ety (kv , j  v , 1)  /3 . 0 
txxdvd(0,l,0)  =  4.0*duedvd(0,l,0)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
txxdvd (0,2,0)  =  (-2.0) *dvedvd (0,2,0) *rrmu (kv , j  v) *ety (kv , j  v , 1) /3 . 0 
txxdvd ( 1 , 0 , 0)  =  4.0*duedvd(l,0,0)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
txxdvd(2,0,0)  =  (-2.0)*dvedvd(2,0,0)*rrmu(kv, jv)*ety(kv, jv,l)/3.0 
txxudd (0,0,0)  =  -rrmu (kv, jv) *(2*dvzudd (0,0,0) *zty (kv, jv,l)-4*duzud 


1  d(0,0: 

txxudd (0 
txxudd (0 
txxudd (0 
txxudd (0 
txxudd (1 
txxudd (2 
txxvdd (0 
1  d(0,0 

txxvdd (0 
txxvdd (0 
txxvdd (0 
txxvdd (0 
txxvdd (1 
txxvdd (2 


0)*ztx(kv, jv,l))/3.0 

,0,1)  =  4 . 0*duzudd (0,0,1) *rrmu (kv , j  v) *  z tx (kv , j  v , 1 ) /3 . 0 
,0,2)  =  (-2.0) *dvzudd (0,0,2) *rrmu (kv , j  v) *zty (kv , j  v , 1) /3 . 0 
,1,0)  =  4.0*duzudd(0,l,0)*rrmu(kv, jv)*ztx(ky, jv,l)/3.0 
,2,0)  =  (-2.0)  *dvzudd  (0,2,0)  *rrmu  (kv ,  j  v)  *zty  (kv ,  j  v ,  1)  /3 . 0 
,0,0)  =  4 . Ofduzudd (1,0,0) *rrmu (kv , j  v) *  ztx (kv , j  v , 1) /3 . 0 
,0,0)  =  (-2.0) *dvzudd(2,0,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
,0,0)  =  -rrmu(kv, jv) * (2*dvevdd (0,0,0) *ety (kv , jv, l)-4*duevd 
,0)*etx(kv, jv,l))/3.0 

,0,1)  =  4.0*duevdd(0,0, 1) *rrmu(kv , jv) *etx (kv , jv, l)/3.0 
,0,2)  =  (-2.0) *dvevdd (0,0,2) *rrmu (kv , j  v) *ety (kv , j  v , 1 ) /3 . 0 
,1,0)  =  4.0*duevdd (0,l,0)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
,2,0)  =  (-2.0) *dvevdd (0,2,0) *rrmu (kv , j v) *ety (kv , j  v , 1) /3 . 0 
,0,0)  =  4 . 0*duevdd (1,0,0) *rrmu (kv ,  j  v)  *  etx (kv,jv,l)/3.0 

,0,0)  =  ( -2 . 0) *dve vdd (2 , 0 , 0) *  rr mu (kv , j  v) *  ety (kv , j  v , 1 ) /3 . 0 


txyddd (0,0,0)  = 

1  ,0) *ztx(kv, ; 

2  v,jv,l)) 
txyddd (0, 0, 1)  - 

1  , 1) *ety (kv , ; 

txyddd (0,0, 2)  = 
1  ,2)*etx(kv,. 

txyddd (0, 1 ,0)  = 
1  ,0) *ety (kv, ; 

txyddd (0,2,0)  = 
1  ,0) *etx(kv, , 

txyddd(l,0,0)  = 
1  ,0)  *ety  (kv , , 

txyddd (2, 0,0)  = 
1  ,0)*etx(kv,. 

txyddu (0,0,0)  = 
1  ,0)*ztx(kv,, 

txyddu (0,0,1) 
txyddu (0,0, 2) 
txyddu (0,1,0) 
txyddu (0,2,0) 
txyddu (1,0,0) 
txyddu (2, 0,0) 
txyddu (0,0,0) 

1  ,0)*etx(kv, 

txyddu (0,0,1) 
txyddu (0,0,2) 
txyddu (0,1,0) 
txyddu (0,2,0) 
txyddu (1,0,0) 
txyddu (2,0,0) 
txydud (0,0,0) 

1  ,0)*ztx(kv, 

txydud(0,0, 1) 
txydud (0,0,2) 
txydud (0,1 ,0) 
txydud (0,2,0) 
txydud  (.1 ,0,0) 
txydud (2, 0,0) 
txydvd (0,0,0) 

1  ,0)*etx(kv, 

txydvd (0,0,1) 
txydvd (0,0, 2) 


=  rrmu (kv , j  v) * (duzddd (0 , 0 , 0) *zty (kv , j  v , 1) +dvzddd (0,0 
j  v , 1) +dueddd (0 , 0 , 0) *ety (kv , j  v , 1 ) +dveddd (0,0,0) *etx (k 


=  rrmu (kv , j  v) * (duzddd (0,0,l)*zty(kv,jv,l) +dueddd (0,0 

=  rrmu(kv , j v) * (dvzddd(0,0, 2) *ztx(kv , j v, l)+dveddd(0,0 

=  rrmu(kv, jv) + (duzddd (0, 1,0) *zty (kv , jv, 1) +dueddd(0, 1 
jv,l)) 

=  rrmu(kv, jv)*(dvzddd (0,2,0) *ztx(kv , jv, 1) +dveddd(0,2 
jv,l)) 

=  rrmu (kv , j  v) * (duzddd (l,0,0)*zty(kv,jv,l) +dueddd (1 , 0 

=  rrmu (kv , j  v) * (dvzddd (2 , 0 , 0) *  ztx (kv , j  v , 1) +dveddd (2 , 0 
jv,l)) 

=  rrmu (kv , j  v) * (duzddu (0 , 0 , 0) *  zty (kv , j  v , 1) +dvzddu  (0 , 0 

JV/1))  v  „  . 

=  duzddu (0,0,1) *rrmu (kv,jv)*zty(kv,jv,l) 

=  dvzddu (0,0,2) *rrmu (kv , j  v) *ztx (kv , j  v , 1 ) 

=  duzddu (0,1,0)*  rrmu (kv , j  v) *  zty (kv , j  v , 1 ) 

=  dvzddu (0,2,0) *rrmu (kv , j  v) *ztx (kv , j  v , 1) 

=  duzddu (1 ,0,0) *rrmu (kv , j  v) *zty (kv , j v , 1 ) 

=  dvzddu (2, 0,0)*rrmu(kv, jv)*ztx(kv, jv,l) 

=  rrmu (kv , j  v) * (dueddv (0,0,0) *ety (kv , j  v , 1 ) +dv eddv (0 , 0 

=  dueddv (0,0,1) *rrmu (kv , j v) *ety (kv , j v , 1) 

=  dveddv (0,0,2) *rrmu (kv , j  v) *  e tx (kv , j  v , 1 ) 

=  dueddv (0,1,0)*  rrmu (kv , j  v) *ety (kv , j  v , 1 ) 

=  dveddv (0,2,0) *rrmu (kv , j v) *etx (kv , j v , 1) 

=  dueddv (1,0,0)*  rrmu (kv , j  v) *ety (kv , j  v , 1) 

=  dveddv (2,0,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) 

=  rrmu (kv , j  v) * (duzdud (0,0,0) *zty (kv , j  v , 1) +dvzdud (0 , 0 
.jv,1))  . 

=  duzdud(0,0,l) *rrmu(kv, jv)*zty(kv, jv,l) 

=  dvzdud(0,0,2) *rrmu(kv, jv)*ztx(kv, jv,l) 

=  duzdud (0,1,0) *rrmu (kv , j  v) *zty (kv , j  v , 1 ) 

=  dvzdud (0,2,0) *rrmu(kv, jv) *ztx(kv , jv, 1) 

=  duzdud (1 ,0,0) *rrmu(kv, jv) *zty (kv, jv , 1) 

=  dvzdud (2,0,0) *rrmu (kv , j  v) *  ztx (kv , j  v , 1) 

=  rrmu(kv, jv) * (duedvd (0,0,0) *ety(kv , jv, 1) +dvedvd(0,0 

,jv.D) 

=  duedvd (0,0,1) *rrmu (kv , j  v) *ety (kv , j  v , 1 ) 

=  dvedvd(0,0,2) *rrmu(kv, jv) *etx(kv , jv, 1) 


txydvd (0,1,0)  =  duedvd(0,l,0)*rrmu(kv, jv)*ety(kv, jv,l) 
txydvd (0,2,0)  =  dvedvd(0,2,0)*rrmu(kv, jv)*etx(kv, jv,l) 
txydvd (1,0,0)  =  duedvd(l ,0,0) *rrmu(kv, jv)*ety(kv, jv,l) 
txydvd(2,0,0)  =  dvedvd(2,0,0)*rrmu(kv, jv)*etx(kv, jv,l) 
txyudd (0,0,0)  =  rrmu (kv , j  v) * (duzudd (0 , 0 , 0) *  zty (kv , j  v , 1 ) +dvzudd (0 , 0 
1  ,0)*ztx(kv, jv,l)) 

txyudd(0,0,l)  =  duzudd (0, 0, 1) *rrmu(kv, jv)*zty(kv, jv,l) 
txyudd(0,0,2)  =  dvzudd(0,0,2)*rrmu(kv, jv)*ztx(kv, jv,l) 
txyudd(0,l,0)  =  duzudd(0,l,0)*rrmu(kv, jv)*zty(kv, jv,l) 
txyudd(0,2,0)  =  dvzudd(0,2,0)*rrmu(kv, jv)*ztx(kv, jv,l) 
txyudd(l,0,0)  =  duzudd (1, 0, 0) *rrmu(kv, jv)*zty(kv, jv,l) 
txyudd(2,0,0)  =  dvzudd(2,0,0)*rrmu(kv, jv)*ztx(kv, jv,l) 
txy vdd (0,0,0)  =  rrmu (kv , j  v) * (duevdd (0,0,0) *ety (kv , j  v , 1) +dvevdd (0 , 0 
1  ,0)*etx(kv,jv,l)) 

txyvdd(0,0,l)  =  duevdd (0, 0, 1) *rrmu(kv, jv)*ety(kv, jv,l) 
txyvdd(0,0,2)  =  dvevdd(0,0,2)*rrmu(kv, jv)*etx(kv, jv,l) 
txyvdd (0,1,0)  =  duevdd (0,l,0)*rrmu(kv, jv)*ety(kv, jv,l) 
txyvdd (0,2,0)  =  dvevdd(0,2,0)*rrmu(kv, jv)*etx(kv, jv,l) 
txyvdd(l,0,0)  =  duevdd(l,0,0) *rrmu(kv, j v) *ety (kv , jv,l) 
txyvdd (2, 0,0)  =  dvevdd(2,0,0)*rrBu(kv, jv)*etx(kv, jv,l) 

tyyddd (0,0,0)  =  rrmu (kv , j  v) * (4*dvzddd (0 , 0 , 0) *  zty (kv , j  v , 1) -2*duzddd 

1  (0,0,0)*ztx(kv, jv,l) +4*dveddd (0,0,0) *ety(kv,jv,l) -2*dueddd (0,0, 

2  0)*etx(kv, jv,l))/3.0 

tyyddd (0,0,1)  =  -rrmu (kv , j  v) * (2  *duzddd (0,0,1) *ztx (kv , j  v , 1) +2*  duedd 
1  d(0,0,l)*etx(kv, jv,l))/3.0 

tyyddd (0,0,2)  =  rrmu (kv , j  v) * (4*dvzddd (0,0,2)*  zty (kv , j  v , 1) +4*dveddd 
1  (0,0,2) *ety(kv, jv,l))/3.0 

tyyddd (0 . 1 , 0)  =  -rrmu (kv , j  v) i (2*duzddd (0,1,0) *ztx (kv , j  v , 1) +2*duedd 
1  d(0,l,0)*etx(kv, jv,l))/3.0 

tyyddd (0,2,0)  =  rrmu (kv , j  v) * (4*dvzddd (0,2,0)*  zty (kv , j  v , 1) +4*dveddd 
1  (0,2,0) *ety (kv, jv, l))/3.0 

tyyddd (1,0,0)  =  -rrmu (kv , j  v) * (2*duzddd (1,0,0)*  ztx (kv , j  v , 1) +2*duedd 
l  d(l,0,0)*etx(kv, jv,l))/3.0 

tyyddd (2,0,0)  =  rrmu  (kv,jv)*(4*dvzddd(2,0,0)*zty(kv,jv,l) +4*dveddd 
1  (2,0,0) *ety (kv ,jv,l))/3.0 

tyyddu (0,0,0)  =  rrmu (kv , j v) * (4*dvzddu (0,0,0) *zty (kv , j  v , 1) -2*duzddu 
1  (0,0,0) *ztx(kv, jv,l))/3.0 

tyyddu (0,0,1)  =  (-2.0) *duzddu (0,0,1) *rrou (kv , j  v) *ztx (kv , j  v , 1) /3 . 0 
tyyddu(0,0,2)  =  4.0*dvzddu(0,0,2)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
tyyddu (0,1,0)  =  (-2 . 0) *duzddu (0 , 1 , 0) *rrmu (kv , j  v) *ztx (kv , j  v , 1) /3 . 0 
tyyddu(0,2,0)  =  4.0*dvzddu(0,2,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
tyyddu (1,0,0)  =  (-2.0) *duzddu (1 ,0,0) *rrau (kv , j  v) *ztx (kv , j v , 1) /3 . 0 
tyyddu(2,0,0)  =  4.0*dvzddu(2,0,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
tyyddu (0,0,0)  =  rrmu (kv , j  v) * (4*dveddv (0,0,0)*ety(kv,jv,l) -2*dueddv 
1  (0,0,0) *etx(kv, jv,l))/3.0 

tyyddu (0,0,1)  =  (-2.0)*dueddv(0,0,l)*rrmu(kv, jv)*etx(kv, jv,l)/3.0 
tyyddu(0,0,2)  =  4.0*dveddv(0,0,2)*rrmu(kv, jv)*ety(kv, jv,l)/3.0 
tyyddu (0,1,0)  =  (-2.0) *dueddv (0,1,0) *rrou (kv , j  v) *etx (kv , j  v , 1) /3 . 0 
tyyddu(0,2,0)  =  4. 0*dveddv (0,2,0)* rrmu (kv, jv)*ety(kv, jv,l)/3.0 
tyyddu (1,0,0)  =  (-2.0) *dueddv (1 ,0,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) /3 . 0 
tyyddu(2,0,0)  =  4.0*dveddv(2,0,0)*rrmu(kv, jv)*ety(kv, jv,l)/3.0 
tyydud (0,0,0)  =  rrmu (kv , j  v) * (4*dvzdud (0,0,0) *zty (kv , j v , 1) -2*duzdud 
1  (0,0,0)*ztx(kv, jv,l))/3.0 

tyydud (0,0,1)  =  (-2.0) *duzdud (0,0,1) *rrmu (kv , j  v) *  ztx (kv , j  v , 1) /3 . 0 
tyydud(0,0,2)  =  4.0*dvzdud(0,0,2)*rrmu(kv,jv)*zty(kv, jv,l)/3.0 
tyydud (0,1,0)  =  (-2.0)*duzdud(0,l,0)*rrmu(kv, jv)*ztx(kv, jv,l)/3.0 
tyydud(0,2,0)  =  4.0*dvzdud(0,2,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
tyydud (1,0,0)  =  (-2.0) *duzdud (1,0,0) *rrmu (kv , j  v) *ztx (kv , j  v , 1) /3 . 0 


I 


I'tt 


tyydud(2,0,0)  =  4.0*dvzdud(2,0,0)*rrmu(kv, jv)*zty(kv, jv,l)/3.0 
tyydvd (0,0,0)  =  rrau(kv, jv)*(4*dvedvd(0,0,0)*ety(kv, jv,l)-2*duedvd 
1  (0,0,0) *etx(kv, jv,l))/3.0 

tyydvd (0,0,1)  =  (-2.0)*duedvd(0,0,l)*rrau(kv, jv)*etx(kv, jy,l)/3.0 
tyydvd (0,0, 2)  =  4.0*dvedvd(0,0,2)*rrau(kv, jv)*ety(kv, jv,l)/3.0 
tyydvd (0,1,0)  =  (-2 . 0) *duedvd (0,1,0) *rrau (kv ,  j  v)  *etx  (kv ,  j  v ,  1)  /3 . 0 
tyydvd (0,2,0)  =  4.0*dvedvd(0,2,0)*rrau(kv, jv)*ety(kv, jv,l)/3.0 
tyydvd (1,0,0)  =  (-2.0) *duedvd (1,0,0) *rrau (kv , j  v) *etx (kv , j  v , 1) /3 . 0 
tyydvd (2, 0,0)  =  4.0*dvedvd(2,0,0)*rrau(kv, jv)*ety(kv, jv,l)/3.0 
tyyudd (0,0,0)  =  rrau  (kv , j  v) * (4*dvzudd (0, 0 , 0) *zty (kv , j  v , 1) -2*duzudd 
1  (0,0,0)*ztx(kv,jv,l))/3.0  . 


tyyudd(0,0,l)  =  (-2.0)*duzudd(0,0,l)*rrau(kv, jv)*ztx(kv, jv,l)/3.0 
tyyudd (0,0,2)  =  4.0*dvzudd(0,0,2)*rrau(kv, jv)*zty(kv, jv,l)/3.0 
tyyudd (0,1,0)  =  (-2.0) *duzudd (0,1,0) *rrau (kv , j  v) *ztx (kv , j  v , 1 ) /3 . 0 
tyyudd (0,2,0)  =  4.0*dvzudd(0,2,0)*rrau(kv, jv)*zty(kv, jv,l)/3.0 
tyyudd (1 ,0,0)  =  (-2.0) *duzudd (1 ,0,0) *rrau (kv ,  j  v)  *ztx  (kv ,  j  v ,  1)  /3 . 0 
tyyudd (2,0,0)  =  4.0*dvzudd(2,0,0)*rrau(kv, jv)*zty(kv, jv,l)/3.0 
tyyvdd (0,0,0)  =  rrau (kv , j v) * (4*dvevdd (0,0,0) *ety (kv , j v , 1) -2*duevdd 
1  (0,0,0)*etx(kv, jv,l))/3.0 

tyyvdd (0,0,1)  =  (-2.0)*duevdd(0,0,l)*rrau(kv, jv)*etx(kv, jv,l)/3.0 
tyyvdd(0,0,2)  =  4.0*dvevdd(0,0,2)*rrau(kv, jv)*ety(kv, jv,l)/3.0 
tyyvdd (0,1,0)  =  (-2 . 0) *duevdd (0,1,0) *rrau (kv , j v) *etx (kv , j  v , 1) /3 . 0 
tyyvdd (0,2,0)  =  4.0*dvevdd(0,2,0)*rrau(kv, jv)*ety(kv, jv, l)/3.0 
tyyvdd(l,0,0)  =  (-2.0)*duevdd(l,0,0)*rrau(kv, jv)*etx(kv, jv,l)/3.0 
tyyvdd (2, 0,0)  =  4.0*dvevdd(2,0,0)*rrau(kv, jv)*ety(kv, jv,l)/3.0 


A 


bxddd (0,0,0)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) *  *4* (dezddd (0,0,0)*  ztx (kv , 

1  j  v , 1) *gamma+deeddd (0,0,0) *etx (kv , j  v , 1) *gamma) +pr* (rho (kv , j v , 1) * 

2  *3*(rhov(kv, jv, l)*txyddd (0,0,0) +rhou(kv,jv,l) *txxddd (0,0,0) )+rh 

3  o (kv , j  v , 1) *  *2* (-3*rhov (kv , j  v , 1) *txydd00-3*rhou (kv , j  v , 1) * txxddOO 

4  ) +rho (kv , j v , 1) * (6*rhov(kv, j v, 1) *txyd0+6*rhou(kv, j v, 1) *txxdO) -6* 

5  rhov (kv , j  v , 1) *txy-6*rhou (kv , j  v , 1) *txx) ) / (rho (kv , j v , 1) **4*pr) 
bxddd (0,0,1)  =  (rrmu(kv, jv)*rho(kv, jv,l)**3* (dezddd (0,0,1) *ztx(kv, 

1  j  v , 1) *gamma+deeddd (0,0,1) *etx (kv , j v , 1) *gamma) +pr* (rho (kv , j v , 1) * 

2  *2* (rhov (kv , j  v , 1) *txyddd (0,0,1) +rhou (kv , j  v , 1) *fcxxddd (0,0,1) +txx 

3  ddOO) +rho (kv , j  v , 1) * (-2*rhov (kv , j v , 1) *txydd01-2*rhou(kv , j v , 1) *tx 

4  xdd01-2*txxd0) +2*rhov (kv , j  v , 1) *txydl+2*rhou(kv , j v , 1) *txxdl+2*tx 

5  x))/(rho(kv, jv,l)**3*pr) 

bxddd (0,0, 2)  =  (rrmu(kv, jv)*rho(kv, jv,l) **3* (dezddd (0,0,2) *ztx(kv, 

1  j  v , 1 ) *gamma+deeddd (0 , 0 , 2) *  etx (kv , j  v , 1 ) *gamma) +pr* (rho (kv , j  v , 1 ) * 

2  *2* (rhov (kv , j  v , 1) *txyddd (0,0,2) +txyddOO+rhou (kv , j  v , 1) * txxddd (0 , 

3  0,2)) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) *txydd02-2*txyd0-2*rhou (kv , 

4  j  v , 1) *txxdd02) +2*rhov (kv , j  v , 1) *txyd2+2*txy+2*rhou (kv , j  v , 1) *txxd 

5  2))/(rho(kv, jv,l)**3*pr) 

bxddd (0,0,3)  =  rrmu  (kv , j  v) * (dezddd (0,0,3) *ztx (kv , j  v , 1) *gamma+deedd 
1  d(0,0,3)*etx(kv, jv, 1) *gamma)/pr 

bxddd (0,1,0)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) **3* (dezddd (0,1,0) *ztx (kv , 

1  j  v , 1) *gamma+deeddd (0 , 1 , 0) *etx (kv , j  v , 1) *gamma) +pr* (rho (kv , j  v , 1) * 

2  *2  * (rhov (kv , j  v , 1) * txyddd (0,1,0) +rhou (kv , j  v , 1) * txxddd (0,1,0) +txx 

3  ddOO) +rho (kv , j v , 1) * (rhov (kv , j v, 1) * (-txyddlO-txyddOl) +rhou(kv, j v 

4  , 1) * (-txxddlO-txxddOl) -2*txxd0) +2*rhov(kv, jv, 1) *txydl+2*rhou(kv 

5  , jv,l)*txxdl+2*txx))/(rho(kv, jv,l)**3*pr) 

bxddd (0,1,1)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) **2* (dezddd (0,1,1) *ztx (kv , 

1  j ▼ , 1 ) *gamma+deeddd (0 , 1 , 1 ) *etx (kv , j  v , 1 ) *gamma) +pr * (2*rho (kv , j  v , 1 

2  )*txxdd01-2*txxdl))/(rho(kv, jv,l)**2*pr) 

bxddd (0,1,2)  =  (rho (kv , j  v , 1) * (txydd01+txxdd02) -txydl-txxd2) /rho (kv 
1  , jv, 1) **2 

bxddd (0,2,0)  =  (rrmu (kv , j  v) *rho (kv ,jv,l)**3* (dezddd (0,2,0) *ztx (kv , 

1  j  v . 1 '  *gamma+deeddd (0.2, 0) *etx (kv , j  v , 1 ) *gamma) +pr* (rho (kv , j  v , 1) * 

2  *2* (rhov (kv , j  v , 1) *txyddd (0,2,0) +txyddOO+rhou (kv , j  v , 1) *txxddd (0 , 

3  2,0)) +rho (kv , j  v , 1 ) * (rhov (kv , j  v , 1 ) * (- txydd20- txydd02) -2* txydO+rh 

4  ou(kv, jv, 1) * (-txxdd20-txxdd02) ) +2*rhov (kv , j  v , 1) *txyd2+2*txy+2*r 

5  hou (kv , j  v , 1) * txxd2) ) / (rho (kv , j v , 1) *  *3*pr) 

bxddd (0,2, 1)  =  (rho(kv, jv , 1) * (txydd01+txxdd02)-txydl-txxd2) /rho(kv 
1  ,jv,l)**2 

bxddd (0,2,2)  =  (rrmu (kv,jv)*rho(kv,jv,l)**2* (dezddd (0,2,2)*  ztx (kv , 

1  j  v , 1) *gamma+deeddd (0 , 2 , 2) *  etx (kv , j  v , 1 ) *gamma) +pr* (2*rho (kv , j  v , 1 

2  ) *txydd02-2*txyd2) ) / (rho (kv , j v, 1) **2*pr) 

bxddd (0,3,0)  =  rrmu (kv , j  v) * (dezddd (0 , 3 , 0) *ztx (kv , j  v , 1 ) +gamma+dcedd 
1  d(0,3,0)*etx(kv, jv, 1) *gamma)/pr 

bxddd (1,0,0)  =  (rrmu(kv, jv)*rho(kv, jv,l) **3* (dezddd (1,0,0) *ztx(kv, 

1  jv,l)*gamma+deeddd(l,0,0)*etx(kv, jv,l)*gamma)+pr*(rho(kv, jv,l)* 

2  *2*(rhov(kv, jv,l) *txyddd (1,0,0) +rhou(kv,jv,l) *txxddd (1,0,0) +txx 

3  ddOO) +rho (kv , j  v , 1) *  (-2*rhov (kv , j  v , 1 ) * txyddl0-2*rhou (kv , j  v , 1) * tx 

4  xddl0-2*txxd0) +2*rhov (kv , j v, 1) *txydl+2*rhou (kv , j v, 1) *txxdl+2*tx 

5  x))/(rho(kv, jv,l)**3*pr) 

bxddd (1,0, 1)  =  (rrmu(kv, jv) *rho(kv, jv, 1) **2* (dezddd (1,0, 1) *ztx(kv, 

1  j  v , 1) *gamma+deeddd (1 , 0,1) *etx (kv , j  v , 1) *gamma) +pr* (rho (kv , j v , 1) * 

2  (txxddlO+txxddOl) -2*txxdl) ) / (rho (kv , j v , 1) **2*pr) 

bxddd (1,0,2)  =  (rho (kv , j  v , 1 ) * (txyddl0+txxdd02) - txydl- txxd2) /rho (kv 
1  >  j v , 1) **2 

bxddd (1 ,1,0)  =  (rrmu(kv, jv) *rho(kv, jv, 1) **2* (dezddd (1 , 1 ,0)*ztx(kv, 

1  j v , 1) *gamma+deeddd(l , 1,0) *etx(kv , j v , 1) *gamma) +pr* (2*rho(kv , j v , 1 

2  ) *txxddlC  2*txxdl) ) / (rho (kv , j v , 1) *+2+pr) 

bxddd (1 ,2,0)  =  (rho(kv, j v, 1) * (txyddl0+txxdd20) - txydl- txxd2) /rho(kv 


bxddd (0,0,0)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1 ) *  *4* (de  zddd (0 , 0 , 0) *z tx (kv , 

1  j  v ,  1 )  *gamma+deeddd (0 , 0 , 0) *etx (kv , j  v , 1 ) *gamma) +pr* (rho (kv , j  v , 1) * 

2  *3* (rhov (kv , j  v , 1) *txyddd (0,0,0) +rhou (kv , j  v , 1) *  txxddd (0,0,0)) +rh 

3  o (kv , j  v , 1) ++2* (-3*rhov (kv , j  v , 1) *txydd00-3*rhou (kv , j  v , 1) * txxddOO 

4  )+rho(kv, jv,l)*(6*rhov(kv, jv,l)*txyd0+6*rhou(kv, jv,l)*ixxd0)-6* 

5  rhov(kv, jv,l)*txy-6*rhou(kv, jv,l)*txx))/(rho(kv, jv,l)**4*pr) 
bxddd (0,0,1)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) **3* (dezddd (0,0,1) *ztx (kv , 

1  j  v , 1 ) *gamma+deeddd (0, 0, 1) *  etx (kv , j  v , 1) *gamma) +pr* (rho (kv , j  v , 1)  * 

2  *2* (rhov (kv , j  v , 1) *txyddd (0,0,1) +rhou (kv , j v , 1 ) * txxddd (0,0,1) +txx 

3  ddOO) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) * txydd01-2*rhou (kv , j  v , 1) *tx 

4  xdd01-2*txxd0)+2*rhov(kv, jv,l)*txydl+2*rhou(kv, jv,l)*txxdl+2*tx 

5  x))/(rho(kv, jv,l)**3*pr) 

bxddd (0,0, 2)  =  (rrmu(kv, jv)*rho(kv, jv,l)**3* (dezddd (0,0,2) *ztx(kv, 

1  j  v ,  1 ) +gamma+deeddd (0 , 0 , 2)  *  e  tx  (kv ,  j  v ,  1) *gamma) +pr * (rho (kv , j  v , 1 ) * 

2  *2* (rhov (kv , j  v , 1) ftxyddd (0,0,2) +txyddOO+rhou (kv , j v , 1) * txxddd (0 , 

3  0,2))  +rho (kv , j  v , 1) * (~2*rhov (kv , j  v , 1) *txydd02-2*txyd0-2*rhou (kv . 

4  j  v , 1) *txxdd02) +2*rhov (kv , j  v , 1) * txyd2+2*txy+2*rhou (kv , j  v , 1) *txxd 

5  2))/(rho(kv,jv,l)**3*pr) 

bxddd (0,0,3)  =  rrmu (kv , j v) *  (dezddd (0 , 0 , 3)  *z  tx  (kv ,  j  v ,  1 ) *gamma+deedd 
1  d(0,0,3)*etx(kv, jv,l) *gamma)/pr 

bxddd (0,1,0)  =  (rrmu (kv , j  v) *rho (kv ,  j  v ,  1)  *  *3* (dezddd (0 , 1 , 0) *  ztx (kv , 

1  j  v , 1) *gamma+deeddd (0 , 1 , 0) *etx (kv , j  v , 1 ) *gamma) +pr* (rho (kv , j  v , 1) * 

2  *2* (rhov (kv , j  v , 1) * txyddd (0,1,0) +rhou (kv , j  v , 1) * txxddd (0,1,0) +txx 

3  ddOO) +rho(kv , j v , 1) * (rhov (kv , j v , 1) * (-txyddlO-txyddOl) +rhou(kv , j v 

4  , 1) * (-txxddlO-txxddOl) -2*txxd0) +2*rhov (kv, j v, 1) *txydl+2*rhou(kv 

5  , jv,l)*txxdl+2*txx))/(rho(kv, jv,l)**3*pr) 

bxddd(0, 1,1)  =  (rrmu(kv, jv)*rho(kv, jv,l)**2*(dezddd(0,l,l)*ztx(kv, 

1  j v, 1) *gamma+deeddd (0,1,1) *etx (kv , j v, 1) * gamma) +pr* (2*rho (kv , j v , 1 

2  ) *txxdd01-2*txxdl) ) / (rho (kv , j v, 1) **2*pr) 

bxddd (0,1, 2)  =  (rho(kv, jv, 1) * (txydd01+txxdd02)-txydl-txxd2) /rho(kv 
1  ,jv,l)**2 

bxddd (0,2,0)  =  (rrmu (kv , j  v) *rho (kv ,  j v , 1) **3* (dezddd (0,2,0) *ztx (kv , 

1  j  v , 1 ) *ganuna+deeddd (0,2,0) *etx (kv , j  v , 1 ) * gamma) +pr+ (rho (kv , j  v , 1 ) * 

2  *2* (rhov (kv , j  v , 1) * txyddd (0,2,0) +txyddOO+rhou (kv , j  v , 1) * txxddd (0 , 

3  2,0)) +rho (kv , j  v , 1) * (rhov (kv , j v , 1) * (- txydd20-txydd02) -2*txyd0+rh 

4  ou (kv , j v , 1) * (-txxdd20-txxdd02) ) +2*rhov (kv , j v , 1) *txyd2+2*txy+2*r 

5  hou  (kv ,  j  v ,  1)  *  txxd2)  )  /  (rho  (kv ,  j  v ,  1)  *  *3*pr) 

bxddd (0,2,1)  =  (rho (kv , jv, 1) * (txydd01+txxdd02) -txydl-txxd2) /rho (kv 
1  , jv, 1) **2 

bxddd (0,2,2)  =  (rrmu (kv ,  j  v)  *  r  ho  (kv ,  j  y  ,  1 )  *  *  2  * (dezddd (0 , 2 , 2)  *  ztx  (kv , 

1  j  v , 1) *gamma+deeddd (0 , 2 , 2) *etx (kv , j  v , 1) *gamma) +pr* (2*rho (kv , j  v , 1 

2  ) *txydd02-2*txyd2) ) / (rho (kv, j v, 1) **2*pr) 

bxddd(0,3,0)  =  rrmu(kv, jv)*(dezddd(0,3,0)*ztx(kv, jv,l)+gamma+deedd 
1  d(0,3,0)*etx(kv, jv,l)*gamma)/pr 

bxddd (1,0,0)  =  (rrmu (kv , j  v) *rho (kv,jv,l)**3* (dezddd ( 1 , 0 , 0) *  ztx (kv , 

1  j  y , 1 )  *gamma+deeddd (1 , 0 , 0)  *  etx  (kv ,  j  v ,  1 ) *gamma) +pr* (rho (kv , j  v , 1 ) * 

2  *2* (rhov (kv , j  v , 1) *txyddd (1 ,0,0) +rhou (kv , j v , 1) * txxddd (1,0,0) +txx 

3  ddOO) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) *txyddl0-2*rhou (kv , j  v , 1) *tx 

4  xddlO-2*txxdO) +2*rhov  (kv , j v , 1) *txydl+2*rhou (kv , j v , 1) *txxdl+2*tx 

5  x))/(rho(kv, jv,l)**3*pr) 

bxddd (1,0,1)  =  (rrmu(kv, jv) *rho(kv, jv,l) **2* (dezddd (1,0,1) *ztx(kv, 

1  j  v , 1) *gamma+deeddd (1 ,0 , 1) *etx (kv , j v , 1) *gamma) +pr* (rho (kv , j  v , 1) * 

2  (txxddlO+txxddOl) -2*txxdl) ) / (rho (kv , j v, 1) **2*pr) 

bxddd (1,0,2)  =  ( rho (kv , j  v , 1 ) * ( txyddlO+ txxdd02) - txydl - txxd2) /rho (kv 
1  ,jv,l)**2 

bxddd (1,1,0)  =  (rrmu (kv , j  v) * rho (kv , j  v , 1 ) **2* (dezddd (1 , 1 , 0) *z tx (kv , 

1  j  v , 1) *gamma+deeddd ( 1 , 1 , 0) *etx (kv , j  v , 1) *gamma) +pr* (2*rho (kv , j  v , 1 

2  )*txxddl0-2*txxdl))/ (rho(kv, jv,l)**2*pr) 

bxddd (1 ,2,0)  =  (rho(kv, jv, 1) * (txyddl0+txxdd20) -txydl -txxd2) /rho (kv 
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1  >  j v, 1) **2 

bxddd (2,0,0)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) *  *3* (dezddd (2,0,0) *ztx (kv , 

1  j  v , 1 ) *gamma+deeddd (2 , 0 , 0) *etx (kv , j  v , 1) *gamma) +pr* (rho  (kv ,  j  v ,  1)  * 

2  *2* (rhov (kv , j  v , 1) *txyddd (2,0,0) +txydd00+rhou (kv, j v , 1) ttxxddd (2, 

3  0,0)) +rho (kv , j  v , 1) * (-2+rhov (kv , j  v , 1) *txydd20-2* txyd0-2*rhou (kv , 

4  j v , 1) *txxdd20) +2*rhov (kv , j v ,  1) *txyd2+2*txy+2*rhou(kv , j v , 1) *txxd 

5  2))/(rho(kv, jv,l)**r*pr) 

bxddd (2,0,1)  =  (rho (kv , j  v , 1) * (txydd01+txxdd20) -txydl-txxd2) /rho (kv 

1  » jv , 1) **2 

bxddd (2,0,2)  =  (rrmu (kv , j  v) *rho (kv , j v , 1) **2* (dezddd (2,0,2) *ztx (kv , 
^  j v » 1) *gamma+deeddd (2,0, 2) *e tx (kv , j v , 1) tgamma) +pr* (rho (kv , j v, 1) * 

2  (txydd20+txydd02)-2*txyd2))/(rho(kv, jv,l)**2*pr) 

bxddd (2,1,0)  =  (rho (kv , j  v , 1 ) * (txyddl0+txxdd20) -txydl-txxd2) /rho (kv 
1  ,jv,l)**2 

bxddd (2,2,0)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) **2* (dezddd (2 , 2 , 0) *  ztx (kv , 

1  j  v , 1) *gamma+deeddd (2 , 2 , 0) *etx (kv , j  v , 1) *gamma) +pr* (2*rho (kv , j  v , 1 

2  ) *txydd20-2*txyd2) ) / (rho (kv , j v , 1) **2*pr) 

bxddd (3,0,0)  =  rrmu (kv , j  v) * (dezddd (3 , 0 , 0)  *  ztx  (kv ,  j  v ,  1) *gamma+deedd 
1  d(3,0,0)*etx(kv,  jv,l)  *gaauna)/pr 

bxddu (0,0,0)  =  (dezddu (0,0,0) *rrmu (kv , j  v) *rho (kv , j  v , 1) **3*ztx (kv , j 

1  v ,  1)  <-gamma+pr*  (2*rhov  (kv ,  j  v ,  1)  *txyuO+rho  (kv ,  j  v ,  1)  *  (~2*rhov  (kv,  j 

2  v , 1 ) *txydu00-2*rhou (kv , j  v , 1) ♦ txxduOO) +rho (kv , j  v , 1) +  *2* (rhov (kv , 

3  j  v , 1) *txyddu (0 , 0 , 0) +rhou (kv , j  v , 1 ) * txxddu (0 , 0 , 0) ) +2*rhou (kv , j  v , 1 

4  )*txxu0))/(rho(kv, jv,l)**3*pr) 

bxddu (0,0,1)  =  (dezddu (0,0,l)*rrmu(kv, jv)*rho(kv, jv,l)**3*ztx(kv, j 

1  v , 1) *gamma+pr* (2*rhov (kv , j v , 1) * txyul +rho (kv , j v , 1)  * (-2*rhov (kv  j 

2  v , 1) *txydu01-2*rhou (kv , j  v , 1) ttxxduOl) +rho (kv , j  v , 1) **2* (rhov (kv, 

3  jv,l)*txyddu(0,0,l)+rhou(kv, jv,l) *txxddu (0,0,1) )+2*rhou(kv,jv,l 

4  )*txxul))/(rho(kv, jv,l)**3+pr) 

bxddu (0,0,2)  =  (dezddu (0 ,0,2) *rrmu (kv , j  v) +rho (kv , j  v , 1) **3+ztx (kv , j 

1  v , 1) *gamma+pr* (2*rhov (kv , j v , 1) *txyu2+rho (kv , j  v , 1) * (-2+rhov (kv , j 

2  v , 1 ) ytxydu02-2*rhou (kv , j  v , 1) *txxdu02) +rho (kv , j  v , 1) **2* (rhov  (kv , 

3  J  v , 1) * txyddu (0,0,2) +rhou (kv , j  v , 1) *txxddu (0,0,2)) +2*rhou (kv , j  v , 1 

4  )*txxu2))/(rho(kv, jv,l)**3*pr) 

bxddu(0,0,3)  =  dezddu (0,0, 3) *rrmu(kv, jv)*ztx(kv, jv, 1) *gamma/pr 
bxddu (0 , 1 , 0)  =  (dezddu (0,1,0) +rrnu (kv , j  v) *rho (kv , j  v , 1 ) *  *2*z tx (kv , j 

1  y  1) *gamma+pr* (-rhov (kv , j  v , 1) * txydulO+rho (kv , j  v , 1) * (rhov (kv , j  v , 

2  1) ytxyddu (0,1,0) +txxduOO+rhou (kv , j  v , 1)  * txxddu (0,1,0)) -txxuO-rho 

3  u(kv, jv,l)*txxdulO))/ (rho (kv, jv, l)**2*pr) 

bxddu (0,1,1)  =  (dezddu (0,1,1) *rrmu (kv , j  v) *rho (kv ,  j  v ,  1)  **2*  ztx (kv , j 
1  y , 1) *gamma+pr* (rho (kv , j v , 1) *txxduOl-txxul) ) / (rho (kv , j v , 1) **2*pr 

bxddu(0,l,2)  =  (rho(kv , j v , 1) *txxdu02-txxu2) /rho (kv , j v , 1) **2 
bxddu (0,2,0)  =  (dezddu (0,2,0) *rrmu (kv , j v) *rho (kv , j v , 1) **2*ztx (kv , j 

1  v , 1 ) *ganuna+pr* (-txyuO-rhov (kv , j  v , 1) *txydu20+rho (kv , j  v , 1) * (txydu 

2  00+rhov (kv , j  v , 1) *txyddu (0,2,0) +rhou (kv , j  v , 1) *txxddu (0,2,0)) -rho 

3  u(kv , jv, 1) *txxdu20))/ (rho(kv, jv, 1) **2*pr) 
bxddu(0,2,l)  =  (rho (kv, jv, 1) *txydu01-txyul) /rho(kv, jv, 1) **2 
bxddu (0,2,2)  -  (dezddu (0,2,2) *rrmu (kv , j v) *rho (kv , j v , 1) **2*ztx (kv , j 

1  v , 1 ) *gamaa+pr* (rho (kv , j v , 1) *txydu02-txyu2) ) / (rho (kv , j  v , 1 ) **2*pr 

2  ) 

bxddu(0,3,0)  =  dezddu(0,3,0) *rrmu(kv, jv)*ztx(kv, jv,l)*gamma/pr 

bxddu (1,0,0)  =  (dezddu (l,0,0)*rrmu(kv, jv)*rho(kv, jv,l)**2*ztx(kv, j 
*  v> 1) *gamma+pr* (~rhov(kv , j v, 1) *txydulO+rho(kv, jv, 1) * (rhov(kv, j v, 

2  1 ) * txyddu (1 ,0,0) +txxduOO+rhou (kv , j  v , 1) *txxddu (1 ,0,0)) -txxuO-rho 

3  u(kv, jv,l)*txxdulO))/(rho(kv, jv,l)**2*pr) 

bxddu (1,0,1)  =  (dezddu (1,0,1) *rrmu(kv, jv) *rho(kv, jv, 1) **2*ztx(kv, j 

1  y , 1) *gamma+pr* (rho(kv , jv , 1) *txxdu01-txxul) ) / (rho (kv , j v , 1) **2*pr 

2  J 


bxddu(l,0,2)  =  (rho (kv ,  j  v ,  1) *txxdu02-txxu2) /rho (kv , j v , 1) **2 

bxddu (1 ,1,0)  =  (dezddu(l,l,0)*rnnu(kv,jv)*rho(kv,jv,l)+ztx(kv, jv,l 

1  ) *gamma+2*pr* txxdulO) / (rho (kv , j  v , 1) *pr) 

bxddu (1,2,0)  =  (txydul0+txxdu20)/rho(kv, jv,l) 

bxddu (2,0,0)  =  (dezddu(2,0,0)*rrmu(kv, jv)*rho(kv, jv,l)**2*ztx(kv, j 

1  y , 1 ) *gamma+pr * (-txyuO-rhov (kv , j  y , 1) *txydu20+rho (kv , j  v , 1) * (txydu 

2  00+rhov (kv , j  v , 1) * txyddu (2,0,0) +rhou (kv , j  v , 1) *txxddu (2,0,0)) -rho 

3  u(kv, jv, 1) *txxdu20))/ (rho(kv, jv, l)**2*pr) 
bxddu(2,0,l)  =  (rho(kv, jv,l)*txydu01-txyul)/rho(kv, jv,l)**2 
bxddu (2,0,2)  =  (dezddu (2,0,2) *rrmu (kv , j  v) *rho (kv , j  v , 1) **2*ztx  (kv , j 

1  v , 1) *gamma+pr* (rho (kv , j  v , 1) *txydu02-txyu2) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bxddu (2, 1,0)  =  (txydul0+txxdu20)/rho(kv, jv,l) 

bxddu (2,2,0)  =  (dezddu (2,2,0) *rrmu (kv , j  v) *rho (kv , j  v , 1) *ztx (kv , j  v , 1 
1  ) *gamma+2*pr*txydu20) / (rho (kv , j v , 1) +pr) 

bxddu (3,0,0)  =  dezddu (3, 0,0) *rrmu(kv, jv) *ztx(kv, jv, 1) * gamma/ pr 
bxddu (0,0,0)  =  (deeddv (0,0, 0) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) *  *3*gamma+pr* (2*rhov (kv , j  v , 1) *txyvO+rho (kv , j  v , 1) * (~2*rhov (kv , j 

2  v , 1) *txydv00-2*rhou (kv , j  v , 1) *txxdv00) +rho (kv , j  v , 1) **2* (rhov (kv , 

3  j v , 1) *txyddv (0,0,0) +rhou (kv  j v , 1) *txxddv (0,0,0)) +2*rhou (kv , j v , 1 

4  )*txxvO))/(rho(kv, jv,l)**3*pr) 

bxddu (0,0,1)  =  (deeddv (0,0,1) *  rrmu (kv , j  v) *etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  )  **3*gamma+pr * (2*rhov (kv , j  v , 1) *txy vl +rho (kv , j  v , 1) * (~2*rhov (kv , j 

2  v , 1 ) * txydvOl -2*rhou (kv , j  v , 1 ) * txxdvOl ) +rho (kv ,jv,l)**2* (rhov (kv , 

3  jv,l)*txyddv(0,0,l)+rhou(kv, jv,l) ftxxddv (0,0,1) )+2*rhou(kv,jv,l 

4  )*txxvl))/(rho(kv, jv, 1) **3*pr) 

bxddu (0,0,2)  =  (deeddv (0,0,2) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **3*gamma+pr* (2*rhov (kv , j  v , 1) * txyv2+rho (kv , j  v , 1) * (-2*rhov (kv , j 

2  v , 1) * txydv02-2*rhou (kv , j  v , 1 ) * txxdv02) +rho (kv, jv,l)*+2* (rhov (kv , 

3  j  v , 1 ) * txyddv (0,0,2) +rhou (kv , j  v , 1) * txxddv (0,0,2)) +2*rhou (kv , j  v , 1 

4  )*txxv2))/(rho(kv, jv,l)**3*pr) 

bxddu(0,0,3)  =  deeddv(0,0,3)*rrmu(kv,jv)*etx(kv, jv,l)*gamma/pr 
bxddu (0,1,0)  =  (deeddv (0,1,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **2*gamma+pr* (-rhov (kv , j v , 1) *txydvlO+rho (kv , j v , 1) * (rhov (kv , j v , 

2  1)  * txyddv (0,1,0) +txxdvOO+rhou (kv , j  v , 1) +txxddv (0,1,0)) -txxvO-rho 

3  u (kv , j  v , 1) *txxdvlO) ) / (rho (kv , j  v , 1) *  *2*pr) 

bxddu (0,1,1)  =  (deeddv (0,1,1) *rrnu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  )  **2*gamma+pr* (rho (kv , j v , 1) *txxdv01-txxvl) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bxddu(0,l,2)  =  (rho(kv, jv,l)*txxdv02-txxv2)/rho(kv, jv,l)**2 
bxddu (0,2,0)  =  (deeddv (0,2,0) *rrmu (kv,jv)*etx(kv,jv,l) *rho (kv , j  v , 1 

1  )  **2*gamma+pr* (-txyvO-rhov (kv , j v , 1) *txydv20+rho(kv , j v , 1) * (txydv 

2  00+rhov (kv , j  v , 1) * txyddv (0,2,0) +rhou (kv , j  v , 1) * txxddv (0,2,0)) -rho 

3  u  (kv ,  j  v ,  1)  *txxdv20) )  /  (rho  (kv ,  j  v ,  1)  *  *2*pr) 
bxddu(0,2,l)  =  (rho(kv, jv,l)*txydv01-txyvl)/rho(kv, jv,l)**2 
bxddu (0,2,2)  =  (deeddv (0,2,2) *rrou (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **2*ganuna+pr* (rho (kv , j  v , 1) *txydv02-txyv2) ) / (rho (kv , j  v , 1) *+2*pr 

2  > 

bxddu(0,3,0)  =  deeddv (0, 3, 0) *rrou(kv, jv)*etx(kv, jv,l)*gamma/pr 
bxddu (1 ,0,0)  =  (deeddv (1,0,0) *rrau (kv , j  v) *efcx (kv , j  v , 1) *rho (kv , j  v , 1 

1  )  **2*ganuna+pr* (-rhov (kv , j v , 1) *txydvl0+rho (kv , j  v , 1) * (rhov (kv , j  v , 

2  1) *txyddv(l ,0,0) +txxdvOO+rhou(kv, jv, 1) *txxddv( 1,0,0)) -txxvO-rho 

3  u(kv, jv, l)*txxdvlO))/(rho(kv, jv, l)**2*pr) 

bxddu (1,0,1)  =  (deeddv(l,0,l)*rrmu(kv, jv)*etx(kv, jv, 1) *rho(kv, jv,l 

1  )  **2*gamma+pr* (rho (kv , j v , 1) *txxdv01-txxvl) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

bxddu (1,0, 2)  =  (rho(kv, jv, 1) *txxdv02-txxv2)/rho(kv, jv,l)**2 
bxddu (1,1,0)  =  (deeddv (1,1,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 
1  ) *gamma+2*pr*txxdvl0) / (rho (kv , j v , 1) *pr) 
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bxddu (1,2,0)  =  (txydvl0+txxdv20)/rho(kv, jv,l) 

bxddu (2, 0,0)  =  (deeddv (2, 0,0)*rrmu(kv, jv)*etx(kv, jv, 1) *rho(kv, jv,l 

1  )  *  *2*gamma+pr * (- txyvO-rhov (kv , j v , 1) * txydv20+rho (kv , j  v , 1) * (txydv 

2  00+rhov(kv, jv, 1) *txyddv(2,0,0)+rhou(kv, jv, 1) *txxddv (2,0,0)) -rho 

3  u(kv , j v , 1) *txxdv20)) / (rho(kv , jv, 1) **2*pr) 
bxddu(2,0,l)  =  (rho(kv, jv, 1) *txydv01-txyvl)/rho(kv, jv,l)**2 
bxddu (2,0,2)  =  (deeddv (2,0,2) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v ,  1 

1  ) **2*gamma+pr* (rho (kv , j  v , 1) *txydv02-txyv2) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bxddu (2, 1,0)  =  (txydvl0+txxdv20)/rho(kv, jv,l) 

bxddu (2,2,0)  =  (deeddv (2,2,0) *rrmu (kv , j  v) *etx (kv , j v , 1) *rho (kv , j v , 1 
1  ) *gamma+2*pr*txydv20) / (rho(kv, j v, 1)  *pr) 

bxddu (3, 0,0)  =  deeddv (3, 0,0) *rrmu(kv , j v) *etx(kv, jv, 1) *gamma/pr 
bxdud (0,0,0)  =  (dezdud (0,0,0) *rrmu(kv , jy) *rho(kv, jv, 1) **3*ztx(kv, j 

1  v , 1)  *gamma+pr* (rho(kv, jv, 1) * (rhov(kv, jv, 1) * (-txyudOO-txyduOO) +r 

2  hou (kv , j  v , 1) * (-txxudOO- txxduOO) ) +2*rhov (kv , j  v , 1) *txyuO+rho (kv , j 

3  v, 1) **2+(rhov(kv, jv, 1)* txydud (0,0,0) +rhou(kv, jv, l)*txxdud (0,0,0 

4  ) ) +2*rhou (kv , j  v , 1) *txxuO) ) / (rho (kv , j v , 1) **3*pr) 

bxdud (0,0, 1)  =  (dezdud (0,0, 1) *rrmu(kv, jv) *rho(kv, jv, l)**2*ztx(kv,  j 

1  v , 1) *gamma+pr* (-rhov (kv , j v , 1) *txyud01+rho(kv , j v , 1) * (rhov (kv, j v , 

2  1 ) *txydud (0,0,1) +rhou (kv , j  v , 1) *  txxdud (0,0,1) +txxduOO) -rhou (kv , j 

3  v,l) *txxud01-txxu0))/(rho(kv, jv,l)**2*pr) 

bxdud (0,0,2)  =  (dezdud (0,0,2) *rrmu (kv , j  v) *rho (kv ,jv,l)**2*ztx (kv , j 

1  v , 1) *gamma+pr* (-rhov (kv , j  v , 1) *txyud02-txyu0+rho (kv , j v , 1) * (rhov ( 

2  kv , j  v , 1 ) * txydud (0,0,2) + txyduOO+rhou (kv , j  v , 1 ) * txxdud (0,0,2)) -rho 

3  u  (kv ,  j  v ,  1)  * txxud02) )  /  (rho (kv ,  j  v ,  1)  * *2*pr) 

bxdud (0,0, 3)  =  dezdud (0, 0, 3) *rrmu(kv, jv)*ztx(kv, jv,l)*gamma/pr 
bxdud (0,1,0)  =  (dezdud (0,1,0) *rrmu (kv , j  v) *rho (kv , j  v , 1) *  *3*ztx (kv , j 

1  v , 1) *gamma+pr * (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) * (-txyudlO-txyduOl) +r 

2  hou (kv , j  v , 1) * (-txxudlO-txxduOl) ) +2*rhov (kv , j  v , 1) *txyul+rho (kv , j 

3  v , 1)  * *2* (rhov (kv , j  v , 1) * txydud (0,1,0) +rhou (kv , j  v , 1) *txxdud (0,1,0 

4  ) ) +2*rhou(kv , j v , 1) *txxul) ) / (rho(kv , j v , 1) **3*pr) 

bxdud (0,1,1)  =  (dezdud (0,1,1) *rrmu (kv , j  v) *rho (kv , j v , 1) **2*ztx (kv , j 

1  v , 1) *gamma+pr* (rho (kv , j v , 1) *txxdu01-txxul) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bxdud(0,l,2)  =  (rho(kv, jv, 1) *txydu01-txyul)/rho(kv, jv, 1) **2 
bxdud (0,2,0)  =  (dezdud (0,2,0) *rrmu (kv , j  v) *rho (kv , j  v , 1) *  *3*ztx  (kv ,  j 

1  v, 1) *gamma+pr* (rho(kv , jv, 1) * (rhov(kv, jv, 1) * (-txyud20-txydu02) +r 

2  hou (kv , j  v , 1 ) * (- txxud20- txxdu02) ) +2*rhov (kv , j  v , 1) *txyu2+rho (kv , j 

3  v,l)**2* (rhov (kv , j  v , 1 ) * txydud (0,2,0) +rhou (kv , j  v , 1 ) *  txxdud (0,2,0 

4  ))+2*rhou(kv, jv, 1) *txxu2))/ (rho(kv, jv, 1) **3*pr) 

bxdud (0,2,1)  =  (rho(kv, jv, 1) *txxdu02-txxu2)/rho(kv, jv,l)**2 
bxdud (0,2,2)  =  (dezdud (0,2,2) *rrmu (kv , j  v) *rho (kv , j  v , 1) *  *2*ztx (kv , j 

1  v , 1) *gamma+pr* (rho (kv , j v , 1) *txydu02-txyu2) ) / (rho(kv , j v , 1)  **2*pr 

2  ) 

bxdud(0,3,0)  =  dezdud  (0, 3, 0) *rrmu(ky, jv)*ztx(kv, jv, 1) *gamma/pr 
bxdud (1,0,0)  =  (dezdud (1 ,0,0) *rrmu(kv, jv)*rho(kv, jv, 1) **2*ztx(kv, j 

1  v, 1) *gamma+pr*(rho(kv, jv, 1)* (rhov(kv, jv, 1) *txydud(l ,0,0)+txxud0 

2  0+rhou(kv,jv,l)*  txxdud (1,0,0)) - rhov (kv , j  v , 1 ) *  txydulO- txxuO-rhou 

3  (kv , j v , 1) *txxdulO) ) / (rho (kv , j v , 1) **2*pr) 

bxdud (1,0,1)  =  (dezdud(l,0,l)*rrmu(kv, jv)*rho(kv, jv,l)*ztx(kv, jv,l 
1  ) *gamina+pr*(txxud01+fcxxdul0))/(rho(kv, jv,l)*pr) 

bxdud(l,0,2)  =  (txydul0+txxud02)/rho(kv, j v , 1) 

bxdud (1 , 1,0)  =  (dezdud (1 , 1,0)  *rrmu(k«r,  j v)  *rho(kv,  jv,  1)  **2+ztx(kv,  j 

1  v, 1) *gamma+pr+(rho(kv, jv, 1) *txxudlO-txxul))/ (rho(kv, jv, 1)  **2*pr 

2  ) 

bxdud (1,2,0)  =  (rho(kv, jv,l)*txxud20-txxu2)/rho(kv, jv,l)+*2 
bxdud (2, 0,0)  =  (dezdud (2, 0,0) *rrmu(kv, jv) *rho(kv, jv,l) **2*ztx(kv, j 
1  v , 1 ) *gajnma+pr * (rho (kv , j  v , 1 ) * (txyudOO+rhov (kv , j  v , 1) *txydud (2,0,0 


*  *  •  i'  *  ’  «  '  «  *  M  *  -  ■  »  ”  M  - 


2  ) +rhou(kv , j  v , 1) *txxdud(2 ,0 , 0) ) - txyuO-rhov (kv , j  v , 1) *txydu20-rhou 

3  (kv , j  v , 1) *txxdu20) ) / (rho (kv , j  v , 1) * *2*pr) 
bxdud(2,0,l)  =  (txyud01+txxdu20)/rho(kv, jv,l) 

bxdud (2,0,2)  =  (dezdud (2,0,2) *rrmu (kv ,  j  v)  *rho  (kv ,  j  v ,  1)  *  ztx  (kv ,  j  v ,  1 
1  )*gamma+pr*(txyud02+txydu20))/ (rho(kv, jv,l)*pr) 
bxdud (2, 1,0)  =  (rho(kv, jv, 1) *txyudlO-txyul)/rho(ky , jv, 1) **2 
bxdud(2,2,0)  =  (dezdud (2, 2,0) *rrmu(kv, jv) *rho(kv, jv, 1) **2*ztx (kv, j 

1  v , 1) *gamma+pr * (rho (kv , j  v , 1) *txyud20-txyu2) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

bxdud (3, 0,0)  =  dezdud (3,0,0) *rrmu (kv , j  v) *ztx (kv , j  v , 1) *gamma/ pr 
bxdvd (0,0,0)  =  (deedvd (0,0,0) *rrmu (kv , j  v) *etx (kv , j v , 1) *rho (kv , j  v , 1 

1  ) **3*gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j v , 1) * (- txyvdOO-txydvOO) +r 

2  hou (kv , j v , 1) * (-txxvdOO-txxdvOO) ) +2*rhov (kv , j v , 1) *txy vO+rho (kv , j 

3  v,l)**2*(rhov(kv, jv,l) *txydvd (0,0,0) +rhou(kv, jv, 1) +txxdvd (0,0,0 

4  ) ) +2*rhou (kv , j  v , 1) *txxvO) ) / (rho (kv , j v , 1) **3*pr) 

bxdvd (0,0,1)  =  (deedvd (0,0,1) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **2*gamma+pr* (-rhov (kv , j  v , 1) * txy vdOl+rho (kv , j  v , 1) * (rhov (kv , j  v , 

2  1 ) *  txydvd (0,0,1) +rhou (kv , j  v , 1 ) *  bxxdvd (0,0,1) + txxdvOO) -rhou (kv , j 

3  v, 1) *txxvd01-txxv0))/ (rho(kv, jv,l)**2*pr) 

bxdvd (0,0,2)  =  (deedvd (0,0,2) *rrmu (kv , j  y) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **2*gamma+pr* (-rhov (kv , j  v , 1) *txyvd02-txyv0+rho (kv , j v , 1) * (rhov ( 

2  kv , j  v , 1 ) * txydvd (0,0,2) +txydvOO+rhou (kv , j  v , 1) *txxdvd (0,0,2)) -rho 

3  u (kv , j v , 1) *txxvd02) ) / (rho (kv , j  v , 1) **2*pr) 

bxdvd  (0,0, 3)  =  deedvd  (0, 0, 3)  *rrmu(kv,jv)*etx(kY,jv,l)*ganima/pr 
bxdvd (0,1,0)  =  (deedvd (0,1,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **3*gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j v , 1) * (-txyvdlO-txydvOl) +r 

2  hou (kv , j  v , 1) * (-txxvdlO-txxdvOl) ) +2*rhov (kv , j  v , 1) *txyvl -^rho (kv , j 

3  v , 1) **2* (rhov (kv , j  v , 1) *txydvd (0,1,0) +rhou (kv , j v , 1) *txxdvd (0,1,0 

4  ) ) +2*rhou (kv , j  v , 1) *txxvl) ) / (rho (kv , j  v , 1) **3*pr) 

bxdvd (0,1,1)  =  (deedvd (0,1,1) *rrmu (kv,jv)*etx(kv,jv,l)*  rho (kv , j  v , 1 

1  ) **2*gamma+pr* (rho(kv, jv, 1) *txxdv01-txxvl) ) / (rho(kv, j v, 1) **2*pr 

2  ) 

bxdvd(0,l,2)  =  (rhofkv, jv,l)*txydv01-txyvl)/rho(kv, jY,l)**2 
bxdvd (0,2,0)  =  (deedvd (0,2,0) *rrmu (kv , j  v) *etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  ) **3*gamma+pr* (rho(kv, jv,l) * (rhov(kv, jv, 1) * (-txyvd20-txydv02) +r 

2  hou (kv , j  v , 1) * (-txxvd20-txxdv02) ) +2*rhov (kv , j  v , 1) *txyv2+rho (kv , j 

3  v,l)*+2* (rhov (kv , j  v , 1) *txydvd (0,2,0) +rhou (kv , j  v , 1) * txxdvd (0,2,0 

4  ) ) +2*rhou(kv, jv, 1) *txxv2))/ (rho(kv, jv, 1) **3*pr) 
bxdvd(0,2,l)  =  (rho(kv, jv, I)*txxdv02-txxv2)/rho(kv, jv,l)**2 
bxdvd (0,2,2)  =  (deedvd (0,2,2) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **2*gamma+pr* (rho (kv, j v, 1) *txydv02-txyv2) ) / (rho(kv , j v, 1) **2*pr 

2  ) 

bxdvd (0,3,0)  =  deedvd (0, 3, 0)*rrmu(kv, jv)*etx(kv, jv,l)*gamma/pr 
bxdvd (1,0,0)  =  (deedvd (1,0,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **2*gamma+pr*(rho(kv, jv,l) * (rhov (kv, jv,l) *txydvd (1,0,0) +txxvdO 

2  0+rhou (kv , j  v , 1) *txxdvd (1,0,0)) -rhov (kv , j  v , 1) *txydvlO- txxvO-rhou 

3  (kv , j v , 1) *txxdvlO) ) / (rho (kv , j v , 1) *+2*pr) 

bxdvd (1,0,1)  =  (deedvd (l,0,l)*rrmu(kv, jv)*etx(kv, jv,l)*rho(kv, jv,l 
1  ) *gamma+pr*(txxvd01+txxdvl0))/ (rho(kv, jv, l)*pr) 

bxdvd (1,0, 2)  =  (txydvl0+txxvd02)/rho(kv, jv,l) 

bxdvd (1,1,0)  =  (deedvd (1,1,0) *rrnu (kv , j  v ) *etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  ) **2*gamma+pr* (rho (kv , j v , 1) *txxvdlO-txxvl) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

bxdvd(l,2,0)  =  (rho(kv, jv,l)*txxvd20-txxv2)/rho(kv, jv,l)**2 
bxdvd (2,0,0)  =  (deedvd (2,0,0) *rrmu (kv , j  v) *etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  ) **2*gamoa+pr* (rho(kv, jv,l) * (txyvd00+rhov(kv, jv, 1) *txydvd(2,0,0 

2  )+rhou(kv, j v, l)*txxdvd(2,0,0)) -txyvO-rhov(kv, jv, 1) *txydv20-rhou 

3  (kv , j v , 1) *txxdv20) ) / (rho(kv , j v , 1) **2*pr) 
bxdvd(2,0, 1)^  =  (txyvd01+txxdv20)/rho(kv, jv,  1) 


bxdvd(2,0,2)  =  (deedvd(2,0,2) *rrmu(kv, jv)*etx(kv, jv, 1) *rho(kv, jv,l 
1  )  *gamina+pr*  (txy vd02+txydv20)  )  /  (rho  (kv ,  j v ,  1)  *pr) 

bxdvd(2,l,0)  =  (rho(kv, jv, l)*txyvdlO-txyvl)/rho(kv, jv,l)**2 
bxdvd(2,2,0)  =  (deedvd(2,2,0) *rrmu(kv, jv)*etx(kv, jv, 1) *rho(kv, jv,l 

1  ) **2*gamma+pr* (rho (kv , j  v , 1) *txyvd20-txyv2) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bxdvd(3,0,0)  =  deedyd(3,0,0) *rrmu(kv, jv)*etx(kv, jv, 1) *gamma/pr 
bxudd (0,0,0)  =  (dezudd(0,0,0)*rrmu(kv, jv)*rho(kv, jv,l)**3*ztx(kv, j 

1  v , 1 ) *gamma+pr * (rho (kv ,  j  y  ,  1 )  *  *2* (rhov (kv , j  v , 1) *txyudd (0,0,0) +rho 

2  u (kv , j  v , 1 ) *txxudd (0,0,0)) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) *txyudO 

3  0-2*rhou(kv, j v, 1) *txxud00) +2*rhov (kv, jv, 1) *txyu0+2*rho.i(kv , jv, 1 

4  ) *txxuO) ) / (rho(kv, jv, 1) **3*pr) 

bxudd (0,0,1)  =  (dezudd(0,0,l)*rrmu(kv, jv)*rho(kv, jv,l)**2*ztx(kv, j 

1  v, 1) *gamna+pr* (rho(kv, j v, 1) * (rhov (kv, jv, 1) *txyudd(0,0, 1) +rhou(k 

2  v, jv, 1)  *txxudd(0,0, 1) +txxud00) -rhov (kv, jv, 1) *txyud01-rhou(kv, jv 

3  , I)*txxud01-txxu0)) / (rho(kv, jv,l)**2*pr) 

bxudd (0,0, 2)  =  (dezudd (0,0, 2) *rrmu(kv, jv)*rho(kv, jv,l)**2*ztx(kv, j 

1  v, 1) *gamma+pr*(rho(kv, jv, 1)*  (rhov(kv, jv, 1) *txyudd(0,0,2) +txyudO 

2  0+rhou (kv , j  v , 1) *txxudd (0,0,2)) -rhov (kv , j  v , 1) *txyud02-txyu0-rhou 

3  (kv, jv, 1) *txxud02) ) /(rho(kv, jv,l)**2*pr) 

bxudd (0,0, 3)  =  dezudd(0,0,3)*rrmu(kv, jv)*ztx(kv, jv, 1) *gamma/pr 
bxudd (0,1,0)  =  (dezudd (0,1,0) *rrmu (kv , j  v) *rho (kv , j  v , 1 ) **2*ztx (kv , j 

1  v, 1) *gamma+pr* (rho(kv, jv, 1) * (rhov(kv , jv, 1) *txyudd(0, 1 ,0)+rhou(k 

2  v , j  v , 1 ) *txxudd (0,1,0) +txxud00) -rhov (kv , j  v , 1) *txyud01-rhou (kv , j  v 

3  ,1) *txxud01- txxuO) ) / (rho (kv , j  v , 1) **2*pr) 

bxudd  (0, 1 , 1)  =  (dezudd  (0, 1 , 1)  *rrmu(kv,  jv)  *rL->(kv,  jv,  1)  *ztx(kv,  jv,  1 
1  )*gamma+2*pr*txxud01) / (rho(kv, jv, 1) *pr) 

bxudd (0,1,2)  =  (txyud01+txxud02)/rho(kv, jv,l) 

bxudd (0,2,0)  =  (dezudd (0,2,0) *rrmu (kv , j  v) %rho (kv , j  v , 1) *  *2*  ztx (kv , j 

1  v , 1 ) *gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) *txyudd (0,2,0) +txyudO 

2  0+rhou (kv , j  v , 1) *txxudd (0,2,0)) -rhov (kv , j  v , 1) *txyud02-txyu0-rhou 

3  (kv , j v , 1) *txxud02) ) / (rho (kv , j v , 1) **2*pr) 
bxudd(0,2,l)  =  (txyud01+txxud02)/rho(kv, jv,l) 

bxudd (0,2,2)  =  (dezudd (0,2,2) *rrmu (kv , j v) *rho (kv , j  v , 1) *ztx (kv , j v , 1 
1  ) *gamma+2*pr*txyudQ2) / (rho(kv, jv, 1) *pr) 

bxudd(0,3,0)  =  dezudd (0, 3, 0)*rrmu(kv, jv)*ztx(kv, jv,l)*gamma/pr 
bxudd (1,0,0)  =  (dezudd (1,0,0) *rrmu (kv , j  v) *rho (kv , j  v , 1 ) *  *3*ztx (kv , j 

1  v, 1) *gamma+pr* (rho(kv, jv, 1) **2* (rhov(kv, jv, 1) *txyudd(l ,0,0)+rho 

2  u(kv,jv,l)*  txxudd (1,0,0)) +rho (kv , j  v , 1 ) * ( -2* rhov (kv , j  v , 1 ) *  txy udl 

3  0-2*rhou(kv, jv, l)*txxudl0)+2*rhov(kv, jv, 1) *txyul+2*rhou(kv, jv,l 

4  )*txxul))/(rho(kv, jv,l)**3*pr) 

bxudd (1 ,0,1)  =  (dezudd (1 ,0, 1) *rrmu(kv, j v) *rho(kv , jv, 1) **2*ztx(kv, j 

1  v, 1) *gamma+pr* (rho(kv, jY, 1) *txxudlO-txxul) ) / (rho(kv, jv, 1) *+2*pr 

2  )  "  '  . 
bxudd(l,0,2)  =  (rho(kv , j v , 1) *txyudlO-txyul) /rho(kv, jv, 1) **2 

bxudd (1 ,1,0)  =  (dezudd (1 ,1,0) *rrmu(kv, jv) *rho(kv, jv, 1) +*2*ztx(kv , j 

1  v> 1) +gamma+pr* (rho(kv, j y, 1) *txxudl0-txxul))/ (rho(kv, jv, 1) **2*pr 

2  )  '  '  , 
bxudd(l,2,0)  =  (rho(kv, jv, 1) *txyudlO-txyul)/rho(kv, jv,l) **2 
bxudd (2, 0,0)  =  (dezudd (2, 0,0) *rrmu(kv , j v) *rho(kv, j v, 1) **3*zfcx(kv, j 

1  v, 1) *gamma+pr* (rho(kv, j v , 1) **2* (rhov(kv, jv, 1) *txyudd(2,0,0) +rho 

2  u(kv,jv,l) * txxudd (2,0,0)) +rho (kv , j v , 1) * (-2*rhov (kv , j  v , 1) *txyud2 

3  0-2*rhou (kv , j v , 1) *txxud20) +2*rhov (kv , jv , 1) *txyu2+2*rhou(kv, jv , 1 

4  )+txxu2))/(rho(kv, jv, l)**3*pr) 

bxudd(2,0,l)  =  (rho(kv , j v , 1) *txxud20-txxu2) /rho(kv , j v , 1) **2 
bxudd (2 ,0,2)  =  (dezudd (2 ,0,2) *rrmu(kv , j v) +rho (kv , j v , 1) **2*ztx(kv , j 

1  v , 1) *gamma+pr* (rho (kv , j v , 1) *txyud20-txyu2) ) / (rho(kv, jv,l)**2*pr 

2  ) 

bxudd(2,l,0)  -  (rho(k.v ,  j  v ,  1)  *txxud20-txxu2' /rho(kv ,  j  v ,  1) +*2 


bxudd (2,2,0)  =  (dezudd (2,2,0) *rrmu (kv , j v) *rho (kv , j  v , 1) **2*ztx (kv , j 

1  v , 1) *gamma+pr* (rho(kv , j v, 1) *txyud20-txyu2) ) / (rho(kv , jv, 1) **2*pr 

2  ) 

bxudd (3, 0,0)  =  dezudd (3, 0,0) *rrnm(kv , j v)*ztx(kv, jv, 1) *gamma/pr 
bxvdd (0,0,0)  =  (deevdd (0,0,0) *rrmu(kv, j v) *etx (kv , j v , 1) *rho(kv , jv , 1 

1  )  **3*gamma+pr* (rho(kv, jv, 1) **2* (rhov(kv , jv, 1) *txyvdd(0,0,0)+rho 

2  u(kv , jv, 1) *txxvdd (0,0,0) ) +rho(kv, j v, 1) * (-2*rhov(kv, jv, 1) *txyvd0 

3  0-2*rhou (kv , j  v , 1) *txxvd00) +2*rhov (kv , j  v , 1 ) +txyv0+2*rhou (kv , j  v , 1 

4  ) *txxv0) ) / (rho(kv, j v , 1) **3*pr) 

bxvdd (0,0,1)  =  (deevdd (0,0,1) *rrmu (kv , j  v) *e tx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  )  **2*gamma+pr* (rho(kv, j v, 1) * (rhov(kv, jv, 1) *txyvdd(0,0, 1) +rhou(k 

2  v , j  v , 1) *txxvdd (0,0,1) +txxvd00) -rhov (kv , j v , 1) *txyvd01-rhou (kv , j  v 

3  , 1) *txxvd01-txxv0) )/(rho(kv, jv, l)**2*pr) 

bxvdd (0,0,2)  =  (deevdd (0,0,2) *rrmu (kv , j  v) *etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  )  **2*gamma+pr* (rho(kv, jv, 1) * (rhov(kY, jv, 1) *txyvdd(0,0,2)+txyvd0 

2  0+rhou(kv, jv, 1) * txxvdd (0,0, 2)) -rhov (kv, jv, 1) *txyvd02-txyv0-rhou 

3  (kv, j v, 1) *txxvd02)) / (rho(kv, jv, 1) **2*pr) 

bxvdd(0,0,3)  =  deevdd(0,0,3) *rrmu(kv, jv)*etx(kv, jv, 1) +gamma/pr 
bxvdd (0, 1 ,0)  =  (deevdd(0, 1,0) *rrmu(kv, jv) *etx(kv, jv, 1) *rho(kv, jv, 1 

1  )  *  *2*gamma+pr * (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) *txyvdd (0,1,0) +rhou (k 

2  v,  jv, 1) *txxvdd(0, 1 ,0) +txxvd00)-rhov (kv, jv,l) *txyvd01-rhou(kv , jv 

3  , 1) *txxvd01-txxv0)) /(rho(kv, jv, l)**2*pr) 

bxvdd (0,1,1)  =  (deevdd (0,1,1) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 
1  ) *gamma+2*pr*txxvd01) / (rho(kv , j v , 1) *pr) 

bxvdd(0,l,2)  =  (txyvd01+txxvd02)/rho(kv, jv,  1) 

bxvdd (0,2,0)  =  (deevdd (0,2,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  )  *  *2*gamma+pr * (rho  (kv , j  v , 1) * (rhov (kv , j  v , 1) *txy vdd (0,2,0) +txy vdO 

2  O+rhou (kv , j  v , 1) * txxvdd (0,2,0)) -rhov (kv , j  v , 1 ) *txyvd02-txy vO-rhou 

3  (kv , j v , 1) *txxvd02) ) / (rho (kv , j v , 1) **2*pr) 
bxvdd (0, 2, 1)  =  (txyvd01+txxvd02)/rho(kv, jv,l) 

bxvdd (0,2,2)  -  (deevdd (0,2,2) *rrnm  (kv , j v) *etx (kv , j v , 1) *rho (kv , j  v , 1 
1  ) *gamma+2*pr*txyvd02) / (rho(kv, j v, 1) *pr) 

bxvdd (0,3,0)  =  deevdd(0,3,0)*rrmu(kv, jv)*etx(kv, jv,l)*gamma/pr 


bxvdd (1,0,0)  =  (deevdd (1 ,0,0) *rrmu (kv , j  v) *etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  )  +  *3*gamma+pr* (rho (kv,jv,l)**2* (rhov (kv , j  v , 1 ) *  txy vdd (1 ,0,0)  +rho 

2  u (kv , j  v , 1) * txxvdd (1 ,0,0)) +rho (kv , j v , 1) * (~2*rhov (kv , j  v , 1) *txyvdl 

3  0-2*rhou(kv, jv, l)*txxvdl0)+2*rhov(kv, jv, 1) *txyvl+2*rhou(kv, jv,l 

4  )*txxvl))/(rho(kv, jv,l)**3*pr) 

bxvdd (1,0,1)  =  (deevdd (1,0,1) *rrmu (kv , j  v) *etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  )+*2*gamma+pr*(rho(kv, jv,l)+txxvdlO-txxvl))/(rho(kv, jv,l)**2*pr 

2  ) 

bxvdd(l,0,2)  =  (rho(kv, jv, 1) *txyvdlO-txyvl)/rho(kv, jv,l)**2 
bxvdd (1,1,0)  =  (deevdd (1,1,0) *rrau (kv , j  v) * etx (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  )  *  *2*gamma+or* (rho (kv , j v , 1) *txxvdlO-txxvl) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bxvdd(l,2,0)  =  (rho(kv, jv,l)*txyvdlO-txyvl)/rho(kv, jv,l)**2 
bxvdd (2,0,0)  =  (deevdd (2,0,0) *rrmu (kv , j  v) *etx (kv , j  v , 1) *rho (kv , j  v , 1 

1  )  **3*gamma+pr * (rho (kv , j v , 1) **2* (rhov (kv , j  v , 1) *txyvdd (2,0,0) +rho 

2  u (kv , j  v , 1) * txxvdd (2 , 0,0)) +rho (kv , j v , 1) * (-2*rhov (kv , j  v , 1) *txyvd2 

3  0-2*rhou(kv, jv, 1) *txxvd20) +2*rhov(kv, jv,l) *txyv2+2*rhou(kv, jv, 1 

4  )*txxv2))/(rho(kv, jv,l)**3*pr) 

bxvdd(2,0,i)  =  (rho(kv, jv, 1) *txxvd20-txxv2)/rho(kv, jv,l)+*2 
bxvdd (2, 0,2)  =  (deevdd (2, 0,2) *rrmu(kv, j v) *etx(kv , jv, 1) *rho(kv, jv, 1 

1  )  **2*gamma+pr* (rho(kv, jv, 1) *txyvd20-txyv2) ) /(rho(kv, jv, 1) **2*pr 

2  ) 

bxvdd(2,l,0)  =  (rho(kv, j v , 1) *txxvd20-txxv2) /rho(kv , jv , 1) **2 
bxvdd (2,2,0)  =  (deevdd  (2,2,0) *rrmu (kv , j v) *etx (kv , jv , 1) *rho (kv , j v , 1 

1  )  **2*gamma+pr* (rho(kv, j v, 1) *txyvd20-txyv2) ) / (rho(kv , j v, 1)  **2*pr 

2  ) 


bxvdd(3,0,0)  =  deevdd(3,0,0)*rrmu(kv, jv)*etx(kv, jv, 1) *gamma/pr 

byddd (0,0,0)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) * *4* (dezddd (0,0,0)*  zty (kv , 

1  j  v , 1) *gamma+deeddd (0 , 0 , 0) *ety (kv , j  v , 1) *gaoma) +pr* (rho (kv , j  v , 1) * 

2  *3* (rhov (kv , j  v , 1) *tyyddd (0,0,0) +rhou (kv , j  v , 1) *txyddd (0 , 0 , 0) ) +rh 

3  o(kv,jv,l)**2* (-3*rhov (kv , j  v , 1) *tyydd00-3*rhou (kv , j  v , 1 ) * txyddOO 

4  ) +rho (kv , j v , 1) * (6*rhov (kv , j  v , 1) *tyydO+b*rhou(kv , j v , 1) *txydO) -6* 

5  rhov (kv , j  v , 1) *tyy-6+rhou (kv , j  v , 1) *txy) ) / (rho (kv , j  v , 1) **4*pr) 
byddd (0,0,1)  =  (rrmu(kv, jv)*rho(kv, jv,l) **3* (dezddd (0,0,1) *zty(ky, 

1  j  v ,  1)  *ganuna+deeddd (0,0,1) *ety (kv , j  v , 1) * gamma) +pr* (rho (kv , j  v , 1) * 

2  *2* (rhov (kv , j  v , 1) *tyyddd (0,0, 1) +rhou (kv , j  v , 1) * txyddd (0,0,1) +txy 

3  ddOO) +rho (kv , j v , 1) * (-2*rhov (kv , jv , 1) *tyydd01-2*rhou(kv, j  v ,  1)  *tx 

4  ydd01-2*txyd0) +2*rhov (kv , j  v , 1) *tyydl+2*rhou (kv , j v , 1) *txydl+2*tx 

5  y))/(rho(kv, jv,l)**3*pr) 

byddd (0,0,2)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) **3* (dezddd (0,0,2)*  zty (kv , 

1  j  v , 1) *gamma+deeddd (0,0,2) *ety (kv , j  v , 1) *gamma) +pr* (rho (kv , j  v , 1) * 

2  *2* (rhov(kv, jv, 1) *tyyddd(0,0,2)+tyydd00+rhou(kv , jv, 1) *txyddd(0, 

3  0,2)) +rho (kv , j  v , 1) *  (-2*rhov (kv , j  v , 1 ) *tyydd02-2*tyyd0-2*rhou (kv , 

4  j  v , 1) *txydd02) +2*rhov (kv , j  v , 1) * tyyd2+2*tyy+2*rhou (kv , j  v , 1) *  txyd 

5  2))/(rho(kv, jv,l)**3*pr) 

byddd(0,0,3)  =  rrmu(kv, jv)*(dezddd(0,0,3)*zty(kv, jv,l) *gamma+deedd 
1  d(0,0,3)*ety(kv, jv, 1) *gamma)/pr 

byddd (0,1,0)  =  (rrmu (kv , j  v) *rho (kv,jv,l)**3* (dezddd (0,1,0) *zty (kv , 

1  j v , 1 )  *gamma+ deeddd (0 , 1 , 0)  *  ety  (kv ,  j  v ,  1 ) *gamma) +pr* (rho (kv , j v , 1) * 

2  *2* (rhov (kv , j v, 1) *tyyddd(0, 1,0) +rhou (kv, j v, 1) * txyddd (0, 1 ,0) +txy 

3  ddOO) +rho (kv , j v , 1) * (rhov (kv , j v, 1) * (-tyyddlO-tyyddOl) +rhou(kv , j v 

4  , 1) * (-txyddlO-txyddOl) -2*txyd0) +2*rhov (kv , j v, 1) *tyydl+2*rhou (kv 

5  , j v , 1) *txydl+2*txy) ) / (rho (kv , j v , 1) **3*pr) 

byddd (0,1,1)  =  (rrmu(kv, jv)*rho(kv, jv,l)**2* (dezddd (0,1,1) *zty(kv, 

1  j ▼ , 1)  *gamma+ deeddd (0,1,1) *ety (kv , j  v , 1) *gamma) +pr* (2*rho (kv , j  v , 1 

2  ) *  txyddOl -2  *  txy dl ) ) / (rho(kv, jv,l)**2*pr) 

byddd (0,1 ,2)  =  (rho(kv, jv, 1) * (tyydd01+txydd02) -tyydl-txyd2)/rho(kv 
1  »jv,l)**2 

byddd (0,2,0)  =  (rrmu (kv , j  v) *rho (kv ,jv,l)**3* (dezddd (0,2,0)*  zty (kv , 

1  j  v , 1 ) *gamma+deeddd (0,2,0) *ety (kv , j  v , 1) *gamma) +pr * (rho (kv , j  v , 1) * 

2  *2* (rhov (kv , j  v , 1) *tyyddd (0,2,0) +tyydd00+rhou (kv , j  v , 1) * txyddd (0 , 

3  2,0)) +rho (kv , j  v , 1) * (rhov (kv , j  v , 1) * (- tyydd20-tyydd02) -2*tyyd0+rh 

4  ou (kv , j  v , 1) * (-txydd20-txydd02) ) +2*rhov (kv , j v , 1) *tyyd2+2*tyy+2*r 

5  hou (kv , j v , 1) *txyd2) ) / (rho (kv , j v , 1)  **3*pr) 

byddd (0,2,1)  =  (rho (kv , j  v , 1) * (tyydd01+txydd02) -tyydl- txyd2) / rho (kv 
1  ,jv.l)**2 

byddd (0,2,2)  =  (rrmu (kv , j  v) *rho (kv ,jv,l)**2* (dezddd (0,2,2) *zty (kv , 

1  j  v , 1) * gamma rdeeddd (0 , 2 , 2) *ety (kv , j  v , 1) *gamma) +pr* (2*rho (kv , j  v , 1 

2  ) *tyydd02-2*tyyd2) ) / (rho (kv , j v , 1) **2*pr) 

byddd (0,3,0)  =  rrmu (kv , j  v) * (dezddd (0,3,0) *zty (kv , j  v , 1) *gamma+deedd 
1  d(0,3,0)*ety(kv,  jv,  1)  *gsunma)/pr 

byddd (1 ,0,0)  =  (rrmu(kv, jv) *rho(kv, jv, 1) **3* (dezddd (l,0,0)*zty (kv, 

1  jv,l)*gamma+deeddd(l,0,0) *ety(kv, jv,l)*gamma)+pr*(rho(kv, jv,l)* 

2  *2* (rhov (kv , j  v , 1) * tyyddd (1 ,0,0) +rhou (kv , j  v , 1) * txyddd (1 ,0,0) +txy 

3  ddOO) +rho (kv , j v , 1) * (-2*rhov (kv , j v , 1) *tyyddl0-2+rhou (kv , j v , 1) *tx 

4  yddlO-2*txydO)+2*rhov(kv, jv, 1) *tyydl+2*rhou(kv, jv, 1) *txydl+2*tx 

5  y))/(rho(kv, jv,l)**3*pr) 

byddd (1 ,0, 1)  =  (rrmu(kv, j v) *rho(kv, j v, 1) **2* (dezddd (1 ,0,1) *zty (kv, 

1  jv, 1) *gamma+deeddd(l ,0, 1) *ety (kv, jv, 1) *ganuna) +pr* (rho(kv, jv, 1) * 

2  (txyddl0+txydd01)-2*txydl))/(rho(kv, jv, 1) **2*pr) 

byddd (1,0,2)  =  (rho (kv , j  v , 1) * (tyyddl0+txydd02) - tyydl-txyd2) /rho (kv 
1  , j v, 1) **2 

byddd (1 , 1,0)  -  (rrmu(kv, j v) *rho(kv, j v , 1) **2* (dezddd (1 ,1,0) *zty(kv, 
1  jv> 1) *gamma+deeddd(l , 1,0) *ety (kv , j v, 1) *ganuna) +pr* (2*rho(kv, jv, 1 
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2  ) *txyddlO-2*txydl) ) / (rho (kv , j  v , 1) **2*pr) 

byddd (1,2,0)  =  (rho (kv , j  v , 1) * (tyyddl0+txydd20) -tyydl-txyd2) /rho (kv 
1  ,jv,l)**2 

byddd (2,0,0)  =  (rrmu (kv , j  v) *rho (kv ,  j  y  ,  1 )  *  *  3* (de  zddd (2,0,0)*  zty (kv , 

1  j  v , 1) *gamma+deeddd (2,0,0) *ety (kv , j  y , 1) *gamma) +pr* (rho (kv , j  v , 1) * 

2  *2* (rhov (kv , j  v , 1) *tyyddd (2,0,0) +tyydd00+rhou (kv , j  v , 1) *txyddd (2 , 

3  0,0))+rho(kv,jv,l)*  (-2*rhov (kv , j  v , 1) *tyydd20-2*tyyd0-2*rhou (kv , 

4  j  v , 1) *txydd20) +2*rhov (kv , j  v , 1) *tyyd2+2* tyy+2*rhou (kv , j  v , 1) *txyd 

5  2))/(rho(kv, jv,l)**3*pr) 

byddd (2,0,1)  =  (rho (kv , j  v , 1 ) * (tyyddOl + txy dd20) -tyydl - txyd2) / rho (kv 
1  ,jv,l)**2 

byddd (2,0,2)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) **2* (dezddd (2,0,2) *zty (kv , 

1  j  v , 1 ) *  gamma+deeddd  (2,0,2)*  ety (kv , j  v , 1 ) *gamma) +pr* (rho (kv , j  v , 1 ) * 

2  (tyydd20+tyydd02) -2*tyyd2) ) / (rho (kv , j v , 1) **2*pr) 

byddd (2,1,0)  =  (rho  (kv , j  v , 1) * (tyyddl0+txydd20) -tyydl-txyd2) / rho (kv 
1  , j v, 1) **2 

byddd (2,2,0)  =  (rrmu (kv , j  v) *rho (kv , j  v , 1) **2* (dezddd (2,2,0) *zty (kv , 

1  j  v , 1 ) *gamma+deeddd (2,2,0) *ety (kv , j  v , 1) *gamma) +pr* (2*rho (kv , j  v , 1 

2  ) *tyydd20-2*tyyd2) ) / (rho (kv , j  v , 1) **2*pr) 

byddd (3,0,0)  =  rrmu (kv , j  v) * (dezddd (3,0,0)*  zty (kv , j  v , 1) *gamma+deedd 
1  d(3,0,0)*ety(kv, jv,l)*gamma)/pr 

byddu (0,0,0)  =  (dezddu (0,0,0) *rrmu (kv , j  v) *rho (kv , j  v , 1) * *3*zty (kv , j 

1  v ,  1 )  *gamma+pr* (2*rhov (kv , j  v , 1 ) * tyy uO+rho (kv , j  v , 1 ) * (~2*rhov (kv , j 

2  v , 1)  *tyydu00-2*rhou(kv , j v , 1) *txydu00) +rho(kv , j v , 1) **2* (rhov (kv , 

3  j  v , 1 )  * tyyddu (0,0,0) +rhou (kv , j  v , 1) * txyddu (0,0,0)) +2*rhou (kv , j  v , 1 

4  )*txyuO))/(rho(kv, jv,l)**3*pr) 

byddu (0,0,1)  =  (dezddu (0,0,l)*rrmu(kv, jv)*rho(kv, jv,l)**3*zty(kv, j 

1  v , 1) *gamma+pr * (2*rhov  (kv , j  v , 1) *tyyul+rho (kv , j  v , 1) * (-2*rhov (kv , j 

2  v, 1) *tyydu01-2*rhou (kv , j v , 1) *txydu01) +rho (kv , j v , 1) **2* (rhov (kv, 

3  jv,l)*tyyddu(0,0,l)+rhou(kv, jv,l)*txyddu(0,0,l))+2*rhou(kv, jv,l 

4  )*txyul))/(rho(kv, jv,l)**3*pr) 

byddu (0,0,2)  =  (dezddu (0,0,2) *rrmu (kv , j  v) *rho (kv ,jv,l)**3*zty (kv , j 

1  v ,  1 )  *gamma+pr * (2*rhov (kv , j  v , 1) * tyyu2+rho (kv , j  v , 1) * (-2*rhov (kv , j 

2  v , 1)  *tyydu02-2*rhou (kv , j  v , 1) *txydu02) +rho (kv ,jv,l)**2* (rhov (kv , 

3  j  v , 1) *tyyddu (0,0,2) +rhou (kv , j v , 1) *txyddu (0,0,2)) +2*rhou (kv , j  v , 1 

4  )*txyu2))/(rho(kv, jv,l)**3*pr) 

byddu(0,0,3)  =  dezddu (0,0, 3) *rrmu(kv, jv)*zty(kv, jv, 1) *gamma/pr 
byddu (0,1,0)  =  (dezddu (0,1,0) *rrmu (kv , j  v) *rho (kv , j  v , 1) *  *2*zty (kv , j 

1  v , 1) *gamma+pr* (-rhov  (kv , j v , 1) *tyydulO+rho (kv , j  v , 1) * (rhov (kv , j  v , 

2  1)  *tyyddu (0,1,0) +txyduOO+rhou (kv , j  v , 1) *txyddu (0,1,0)) -txyuO-rho 

3  u(kv, jv,l)*txydulO))/ (rho(kv, jv,l)**2*pr) 

byddu (0,1,1)  =  (dezddu (0,1,1) *rrmu (kv , j v) *rho (kv , j  v , 1) *  *2*zty (kv , j 

1  v , 1) *gamma+pr * (rho (kv , j  v , 1) *txydu01 -txyul) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

byddu(0,l,2)  =  (rho(kv, jv, 1) *txydu02-txyu2)/rho(kv, jv,l)**2 
byddu (0,2,0)  =  (dezddu (0,2,0) *rrnu (kv , j  v) *rho (kv,jv,l)**2*zty (kv , j 

1  v , 1) *ganuna+pr* (-tyyuO-rhov (kv , j v , 1) *tyydu20+rho (kv , j v, 1) * (tyydu 

2  00+ rhov (kv , j  v , 1 ) * tyyddu (0,2,0) +rhou (kv , j  v , 1 ) *  txyddu (0,2,0)) -rho 

3  u (kv , j  v , 1) *txydu20) ) / (rho (kv , j  v , 1) * *2*pr) 
byddu(0,2,l)  =  (rho(kv, jv, 1) *tyydu01-tyyui)/rho(kv, jv,l)**2 
byddu (0,2, 2)  =  (dezddu (0,2, 2) *rrmu(kv, jv)*rho(kv, jv,l)**2*zty(kv, j 

1  v,  1)  *gamna+pr* (rho(kv, jv, 1) *tyydu02-tyyu2) ) / (rho(kv, jv, l)**2*pr 

2  ) 

byddu(0,3,0)  =  dezddu  (0, 3,0) *rrmu(kv, jv) *zty(kv, jv, 1) *gamma/pr 
byddu (1 ,0,0)  =  (dezddu (1 ,0,0) *rrnu(kv, jv)*rho(kv, jv,l) **2*zty(kv, j 

1  v , 1 ) *gamma+pr* (-rhov (kv , j  v , 1) *tyydul0+rho (kv , j v , 1) * (rhov (kv , j v , 

2  1 )  *  tyyddu (1,0,0) +txydu00+rhou (kv , j  v , 1 ) * txyddu (1,0,0)) -txyuO-rho 

3  u(kv , j v , 1) *txydulO) ) / (rho(kv , j v , 1) **2*pr) 

byddu (1 ,0,1)  =  (dezddu (1 ,0, 1) *rrmu(kv, jv) *rho(kv, jv, 1) **2*zty (kv, j 


1  v , 1 ) *gamma+pr* (rho (kv , j  v , 1) *txydu01- txyul) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

byddu(l,0,2)  =  (rho(kv, jv,l)*txydu02-txyu2)/rho(ky, jy,l)**2 

byddu (1 ,1,0)  =  (dezddu (1,1,0) *rrmu (kv , j  v) *rho (kv ,  j  v ,  1)  *  zty  (kv ,  j  v ,  1 
1  ) *gamma+2*pr*txydul0) / (rbo (kv , j  v , 1) *pr) 

byddu (1 ,2,0)  =  (tyydul0+txydu20)/rho(kv, jv,l) 

byddu (2 , 0,0)  =  (dezddu (2 , 0 , 0) *rrmu (kv , j  v) *rho (kv , ] v , 1) * *2* zty (kv , j 

1  v , 1) *gamma+pr* (-tyyuO-rhov(kv, jv, 1) *tyydu20+rho(ky , jy, 1) * (tyydu 

2  00+rhov (kv , j  v , 1) * tyyddu (2,0,0) +rhou (kv , j v , 1) *txyddu (2,0,0)) -rho 

3  u(kv,jv,l)*txydu20))/(rho(kv,jv,l)**2*pr) 

byddu  (2, 0, 1)  =  (rho(kv,  jv,l)*tyydu01-tyyul)/rho(icv,jv,l)**2 

byddu (2,0,2)  =  (dezddu (2,0,2) *rrmu (kv , j  v) *rho (kv  >  •>  ’ v » J) * » J 

1  v , 1) *ganuna+pr* (rho (kv , j  v , 1) *tyydu02-tyyu2) ) / (rho (kv , j v, 1) **2*pr 

2  ) 

byddu (2,1,0)  =  (tyydul0+txydu20) /rho(kv, jv, 1)  .  ^  ^  , 

byddu (2,2,0)  =  (dezddu (2,2,0) *rrmu (kv , j v) *rho (kv , j v , 1) *zty (kv , j v , 1 
1  ) *gamma+2*pr* tyydu20) / (rho (kv , j  v , 1) *pr ) 

byddu (3, 0,0)  =  dezddu (3, 0,0) *rrmu(kv, jv) * zty (kv, jv,l)*gamma/pr 
byddu (0,0,0)  =  (deeddv (0 , 0 , 0) *rrou (kv , j  v) *  ety (kv , j  v , 1) *rho (kv , J  v , 1 

1  ) **3*gamma+pr* (2*rhov  (kv , j v , 1) *tyyvO+rho(kv , jv , 1) * (-2*rhov(kv , j 

2  v  1 ) *tyydv00-2*rhou (kv , j  v , 1) *txydv00) +rho (kv , j ▼ , 1) **2* (rhov (kv , 

3  j  v , 1 ) * tyyddv (0,0,0) +rhou (kv , j  v , 1 ) * txy ddv (0 , 0 , 0) ) +2*rhou (kv , j  v , 1 

4  )*txyvO))/(rho(kv, jv,l)**3*pr)  . 

byddu (0,0,1)  =  (deeddv (0,0,1) «rrnu (kv , j v) *ety (ky , j v , 1) *rho (kv  ,  j v , 1 

1  ) **3*gamma+pr* (2*rhov (kv , j  v , 1) *tyyvl+rho (kv , j v , 1) * (-2*rhov (kv , j 

2  v , 1) *tyydv01-2*rhou (kv , j  v , 1) *txydv01) +rho (kv , j v , 1) **2* (rhov (kv , 

3  j  v , 1 ) * tyyddv (0,0,1) +rhou (kv , j  v , 1 ) * txyddv (0,0,1)) +2*rhou (kv , j  v , 1 

4  )*txyvl))/(rho(kv,jv,l)**3*pr) 

byddu (0,0,2)  =  (deeddv (0 , 0 , 2) *rrmu (kv , j v) * ety (kv , j v , 1) *rho  (kv  j v ,  1 

1  ) **3*gamma+pr* (2*rhov(kv, j v, 1) *tyyv2+rho  (kv , j  v, 1) * (-2*rhov(ky , j 

2  v , 1 ) *tyydv02-2*rhou (kv , j  v , 1) *txydv02) +rho (kv , j  v , 1) **2* (rhov (kv , 

3  j  v , 1 ) * tyyddv (0,0,2) +rhou (kv , j v , 1 ) * txyddv (0,0,2)) +2*rhou (kv , j v , 1 

4  )*txyv2))/(rho(kv, jv, 1) **3*pr)  .  . 

byddu (0,0, 3)  =  deeddv (0,0, 3) *rrmu(kv, jv)*ety(kv, jv, 1) *gamma/pr 
byddu (0,1,0)  =  (deeddv (0,1,0) *rrmu (kv ,  j  v)  *ety  (kv ,  j  v ,  1) *rho (kv , j  v , 1 

1  ) *  *2*gamma+pr* (-rhov (kv , j  v , 1) * tyydvlO+rho (kv , j  v , 1) * (rhov (kv , j  v , 

2  1) * tyyddv (0,1,0) +txydvOO+rhou (kv , j  v , 1) *txyddv (0,1,0)) -txyvO-rho 

3  u(kv, jv, 1) *txydvlO) )/ (rho(kv, jv , 1) **2*pr)  . 

byddu (0, 1 , 1)  =  (deeddv (0, 1 , 1) *rrmu(kv, jv)*ety(kv, jv, 1) *rho(kv, jv,l 

1  ) *  *2*gamma+pr* (rho (kv , j  v , 1) * txydvOl- txy vl) ) / (rho (kv , j  v , 1) *  *2*pr 

2  ) 

byddu (0,1,2)  =  (rho(kv , j v, 1) *txydv02-txyv2) /rho(kv , jv , 1) **2 
byddu (0,2,0)  =  (deeddv (0,2,0) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (ky , j  v , 1 

1  ) *  *2*gamma+pr* (-tyy vO-rhov (kv , j  v , 1) * tyydv20+rho (kv , j  v , 1) * (tyydv 

2  00+rhov (kv, jv,l)* tyyddv (0 , 2 , 0) +r hou (kv , j  v , 1 ) * txyddv (0 , 2 , 0) ) -rho 

3  u(kv, jv, 1) *txydv20))/ (rho (kv , jv, 1) **2*pr) 

byddu (0,2,1)  =  (rho(kv, jv, 1) *tyydv01-tyyvl)/rho(kv, jv,l)**2 
byddu (0,2,2)  =  (deeddv (0,2,2) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) *  *  2*gamma+pr* (rho (kv , j  v , 1 ) * tyydv02-tyyv2) ) / (rho (kv , j  v , 1) *  *2*pr 

2  ) 

byddu (0,3,0)  =  deeddv (0, 3, 0)*rrnm(kv, jv)*ety(kv, jv, 1) *gamma/pr 
byddu (1,0,0)  =  (deeddv (1 ,0,0) *rrmu(kv, jv) *ety (kv, jv, 1) *rho(kv, jv, 1 

1  ) * *  2*gamma+pr* (-rhov (kv , j  v , 1 ) * tyydvlO+rho (kv , j  v , 1) * (rhov (kv , j  v , 

2  1 ) *  tyy ddv ( 1 , 0 , 0) +txydv00+r hou (kv , j  v , 1 ) * txyddv (1,0,0)) -txyvO-rho 

3  u(kv, jv,l)*txydvlO))/(rho(kv, jv,l)**2*pr) 

byddu (1,0,1)  =  (deeddv (1 ,0, 1) *rrmu(kv, jv) *ety(kv, jv, 1) *rho(kv, jv, 1 

1  ) **2*gamna+pr* (rho(kv, jv, 1) *txydv01-txyvl))/ (rho(kv, jv, 1) **2*pr 

2  ) 

byddu (1 ,0,2)  =  (rho(kv , j v , 1) *txydv02-txyv2) /rho(kv , jv , 1) **2 


V  ■  4  p  u  •  .  4  j  i  h  ■ 

'  -  *r- 


m 

as 

byddu (1,1,0)  =  ( deeddv (l,l,0)*rrau(kv, jv)*ety(kv, jv,l)*rho(kv, jv,l 
1  ) *gamaa+2*pr*txydvl0) / (rho (kv , j ▼ , 1) *pr) 

byddu(l ,2,0)  =  (tyydvl0+txydv20)/rho(kv, jv,l) 

byddu (2,0,0)  =  (deeddv (2,0,0) *rrau (kv ,  j  v)  *ety  (kv ,  j  v ,  1) *rho (kv , j  v ,  1 

1  ) **2*gaaaa+pr* (-tyyvO-rhov (kv , j v , 1) *tyydv20+rho (kv , j v , 1) * (tyydv 

2  00+rhoY (kv , j  v , 1 ) +  tyyddv (2,0,0) +rhou (kv , j  v , 1) *  txyddv (2,0,0)) -rho 

3  u  (kv ,  j  v ,  1 )  *  txydv20)  )  /  (rho  (kv ,  j  v ,  1)  *  *2*pr) 

byddu (2, 0, 1)  =  (rho(kv, jv, 1) *tyydv01-tyyvl)/rho(kv, jv,l)**2 
byddu (2,0,2)  =  (deeddv (2,0,2) *rrau (kv , j  v) *ety (kv , j v , 1) *rho (kv , j  v , 1 

1  ) *  *2*gaaaa+pr* (rho (kv , j  v , 1) *tyydv02- tyy v2) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

byddu(2,l,0)  =  ( tyydv 10+txydv20) /rho (kv, jv, 1) 

byddu (2,2,0)  =  (deeddv (2,2,0) *rrau (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j  v , 1 
1  ) *gamma+2*pr*tyydv20) / (rho (kv , j  v , 1) *pr) 

byddu(3,0,0)  =  deeddv(3,0,0)*rrau(kv, jv)*ety(kv, jv,l)*gaaaa/pr 
bydud (0,0,0)  =  (dezdud (0,0,0) *rrau (kv , j  v) *rho (kv , j  v , 1) *  *3*  zty (kv , j 

1  v , 1) *gamaa+pr* (rho (kv , j  v , 1) * (rhov (kv , j v , 1) * (-tyyudOO-tyyduOO) +r 

2  hou(kv , jv, 1) * (-txyudOO-txyduOO) ) +2*rhov (kv , jv , 1) *tyyuO+rho(kv, j 

3  v, 1) **2*(rhov(kv, jv,l) *tyydud(0,0,0)+rhou(kv,jv,l)*txydud (0,0,0 

4  ) ) +2*rhou (kv , j  v , 1) *txyuO) ) / (rho (kv , j  v , 1) **3*pr) 

bydud (0,0,1)  =  (dezdud (0,0,l)*rrau(kv, jv)*rho(kv, jv,l)**2*zty(kv, j 

1  v , 1) *gaaaa+pr* (-rhov (kv , j  v , 1) * tyyudOl+rho (kv , j  v , 1) * (rhov (kv , j v , 

2  1) *tyydud (0,0,1) +rhou (kv , j  v , 1) *txydud (0,0,1) +txydu00) -rhou (kv , j 

3  v; l ) *txyud01- txyuO) ) / (rho (kv , j  v , 1) **2*pr) 

bydud(0,0,2)  =  (dezdud (0,0, 2) *rrgm(kv, jv)*rho(kv, jv,l)*+2*zty(kv, j 

1  v , 1) *gamma+pr* (-rhov (kv , j v , 1) +tyyud02-tyyu0+rho (kv , j v , 1) * (rhov ( 

2  kv , j  v , 1) * tyydud (0,0,2) +tyyduOO+rhou (kv , j  v , 1) *txydud (0,0,2)) -rho 

3  u  (kv ,  j  v ,  1)  *txyud02)  )  /  (rho  (kv ,  j  v ,  1)  **2*pr) 

bydud (0,0, 3)  =  dezdud(0,0,3)*rrau(kv, jv)*zty (kv, jv,l)*gamma/pr 
bydud (0,1,0)  =  (dezdud (0,1,0) *rrau(kv , j  v) *rho (kv , j v , 1) **3*zty (kv , j 

1  v , 1) *gaaaa+pr * (rho (kv, j  v, 1) * (rhov (kv , j  v , 1) * (-tyyudlO-tyyduOl) +r 

2  hou (kv , j  v , 1) * (-txyudlO-txyduOl) ) +2*rhov (kv , j  v , 1) *tyyul+rho (kv , j 

3  v,l)**2* (rhov (kv , j  v , 1) * tyydud (0,1,0) +rhou (kv , j  v , 1) *txydud (0,1,0 

4  ) ) +2*rhou (kv , j  v , 1) *txyul) ) / (rho (kv , j  v , 1) **3*pr) 

bydud (0,1,1)  =  (dezdud (0,1,1) *rrau (kv , j  v) *rho (kv, j v , 1) **2*zty (kv , j 

1  v , 1) *gamma+pr* (rho (kv , j v , 1) *txydu01-txyul) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bydud(0,l,2)  =  (rho(kv, jv,l)*tyydu01-tyyul)/rho(kv, jv,l)**2 
bydud (0,2,0)  =  (dezdud (0,2,0) *rrau (kv , j  v) *rho (kv , j  v , 1) *  *3*  zty (kv , j 

1  v , 1) *gamaa+pr* (rho (kv, j v, 1) * (rhov (kv , j  v,  1) * (-tyyud20-tyydu02) +r 

2  hou(kv,jv,l)* (-txy ud20- txydu02) ) +2*rhov (kv , j  v , 1) * tyyu2+rho (kv , j 

3  v,l)**2* (rhov (kv , j  v , 1) +tyy dud (0,2,0) +rhou (kv , j  v , 1) * txydud (0,2,0 

4  ) ) +2*rhou (kv , j  v , 1) * txyu2) ) / (rho (kv , j  v , 1 ) **3*pr) 

bydud (0,2,1)  =  (rho(kv, jv, 1) *txydu02-txyu2)/rho(kv, jv,l)**2 
bydud (0,2,2)  =  (de  zdud (0 , 2 , 2) *rrau (kv , j  v) *rho (kv , j  v , 1) *  *2*zty (kv , j 

1  v , 1) ♦gamma+pr* (rho (kv , j  v , 1) * tyydu02- tyyu2) ) / (rho (kv , j  v , 1) *  *2*pr 

2  ) 

bydud(0,3,0)  =  dezdud(0,3,0)*rrau(kv, jv)*zty(kv, jv,l)*gaaaa/pr 
bydud (1,0,0)  =  (dezdud (1 ,0,0) *rrau (kv , j  v) *rho (kv , j  v , 1) **2*zty (kv , j 

1  v , 1 ) *gamaa+pr* (rho (kv , j  v , 1) * (rhov (kv , j v , 1) *tyydud (1,0,0) +txyudO 

2  0+rhou(kv , jv, 1) * txydud (1 ,0,0) ) -rhov(kv, jv, 1) *tyydulO-txyuO-rhou 

3  (kv , j  v , 1 ) *txydulO) ) / (rho (kv , j v , 1) *  *2*pr) 

bydud(l,0,l)  =  (dezdud(l,0,l)*rrau(kv, jv)*rho(kv, jv,l)*zty(kv, jv,l 
1  ) *gaaaa+pr* (txyudOl+txydulO) ) / (rho (kv , j v , 1) *pr) 

bydud(l,0,2)  =  (tyydul0+txyud02)/rho(kv, jv,l) 

bydud (1 ,1,0)  -  (dezdud (1 ,1,0) *rrau (kv , j v) *rho (kv , j v , 1) * *2*zty (kv , j 

1  v, 1) *gamaa+pr*(rho(kv, jv, 1) *txyudlO-txyul) )/ (rho(kv, jv,l)**2+pr 

2  ) 

bydud(l,2,0)  =  (rho(kv , jv, 1) *txyud20-txyu2)/rho(kv , jv , 1) **2 


bydud(2,0,0)  =  (dezdud(2,0,0)*rTmu(kv, jv)*rho(kv, jv,l)**2*zty(kv, j 

1  v ,  1 )  *gamna+pr*  (rho  (kv ,  j v ,  1)  *  (tyyudOO+rhov  (kv ,  j  v ,  1)  *hyydud (2 '  ® » 0 

2  )  +rhou (kv , j  v , 1 ) *  txydud (2,0,0)) - tyyuO-rbov (kv , j  v , 1) *tyydu20-rhou 

3  (kv, jv,l)*txydu20))/ (rho(kv, jv , l)**2*pr) 
bydud (2, 0,1)  =  (tyyud01+txydu20)/rho(kv, jv,l) 

bydud (2,0,2)  =  (dezdud (2,0,2) *rrmu (kv , j  v) yrho (kv , J v , 1) *zty (kv , j  v , 1 

1  )*gaoma+pr*(tyyud02+tyydu20))/(rho(kv, jy,l)*pr) 
bydud (2,1,0)  =  (rho(kv, jv,l)*tyyudl0-tyyul)/rho(ky,jy,l)**2 

bydud  (2,2,0)  =  (dezdud  (2,2,0)  *rrmu  (kv ,  j  v)  *rho  (kv ,  j  v  ,1)  *t2^ty(kv,j 

1  v ,  1)  *gamma+pr* (rho (kv , j v , 1) *tyyud20-tyyu2) ) / (rho (kv , j v , 1) **2*pr 

2  } 

bydud (3, 0,0)  =  dezdud(3,0,0)*rrmu(kv, jv)*zty(kv, jv,l)*gamma/pr 

bydvd (0,0,0)  =  (deedvd (0 , 0 , 0) *  rrou (kv , j  v) *  ety (kv , j  v , I )*t ho (kv y , I 

1  7  )  **3*gaooa+pr* (rho  (kv , j v , 1) * (rhov (kv , j v , 1) * (-tyyvdOO-tyydvOO) +r 

2  hou  (kv , j v , 1) * (-txyvdOO- txydvOO) ) +2*rhov (kv, j v , 1) *tyyvO+rho(kv, j 

3  v ,  1)  *  *2* (rhov (kv , j  v , 1) *tyydvd (0,0,0) +rhou (kv , j  v , 1) * txydvd (0,0,0 

4  )  )  +2*rhou (kv , j  v , 1) *txy vO) ) / (rho (kv , j v , 1) **3*pr) 

bydvd (0,0,1)  =  (deedvd (0,0,1) *rrmu (kv , j  v) *ety (kv , ,  j  v , 1) *rho (ky , j  v , 1 

1  )  **2*ganuna+pr  * (-rhov (kv , j  v , 1) *tyyvd01 +rho (kv , j  v , 1) * (rhov (ky , j  v , 

2  1)  * tyydvd  (0,0,1)  +rhou  (kv ,  j  v ,  1)  *txydvd  (0,0,1)  + txydvOO)  -rhou  (kv ,  j 

3  v ,  1)  *txyvd01-txyv0) )  /  (rho  (kv ,  j  v ,  1)  **2*pr)  .  .  , 

bydvd (0,0,2)  =  (deedvd (0,0,2) *rrau (kv , j  v) *ety (kv , j  v , 1) *rho (ky ,  jv,  1 

1  )  *  *2*gamma+pr* (-rhov (kv , j  v , 1) *tyyvd02-tyy vO+rho (kv , j  v , 1) * (rhov ( 

2  kv ,  j  v , 1) *tyydvd (0,0,2) +tyydvOO+rhou (kv , j  v , 1) *txydvd (0,0,2)) -rho 

3  u  (kv ,  j  v , 1) *txy vd02) ) / (rho (kv , j v , 1) **2*pr) 

bydvd (0,0, 3)  =  deedvd(0,0,3)*rrmu(kv, jv)*ety(kv, jv,l)*gamma/pr 
bydvd (0,1,0)  =  (deedvd (0,1,0) *rrau (kv , j  v) *  ety (kv , j  v , 1) *rho (kv , j  y , 1 

1  )  **3*gamma+pr* (rho(kv, jv, 1) *(rhov(kv, jv, 1) * (-tyyvdlO-tyydvOl) +r 

2  hou  (kv ,  j  v , 1) * (-txy vdlO-txydvOl) ) +2*rhov (kv , j  v , 1) *tyyvl+rho (kv , j 

3  v , 1 ) *  *2* (rhov (kv , j  v , 1 ) * tyydvd (0,1,0) +rhou (kv , j  v , 1 ) * txydyd (0,1,0 

4  ))+2*rhou (kv, jv, l)*txyvl))/ (rho(kv, jv,l) **3*pr) 

bydvd (0,1,1)  =  (deedvd (0,1, 1) *rrmu(kv , j v) *ety (kv , j  v , 1) *rho (kv , j  v , 1 

1  )  **2*gamma+pr* (rho(kv, jv, 1) *txydv01-txyvl) ) / (rho(kv, jv, 1) **2*pr 

2  ) 

bydvd (0,1, 2)  =  (rho(kv, jv,l)*tyydv01-tyyvl)/rho(kv, jv,l)**2 

bydvd (0,2,0)  =  (deedvd (0,2,0) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j  v , 1 

1  )  **3*gajnma+pr+ (rho (kv , j v , 1) * (rhov (kv , j v , 1) * (~tyyvd20-tyydv02) +r 

2  hou  (kv , j  v , 1) * (-txyvd20-txydv02) ) +2*rhov (kv , j  v , 1) * tyy v2+rho (kv , j 

3  v , 1 ) *  *2* (rhov (kv , j  v , 1 ) *  tyydvd (0 , 2 , 0) +rhou (kv , j  v , 1 ) * txydvd (0,2,0 

4  ))+2*rhou(kv,jv,l)*txyv2))/(rho(kv,jv,l)**3*pr) 

bydvd (0, 2, 1)  =  (rho(kv, jv,l)*txydv02-txyv2)/rho(kv, jv,l)**2 

bydvd (0,2,2)  =  (deedvd (0,2,2) *rrau (kv , j  v) *ety (kv , j  v , 1 ) *rho (kv , j v , 1 

1  )  **2*gamma+pr* (rho(kv, jv, 1) *tyydv02-tyyv2) ) /(rho(kv, jv, 1) **2*pr 

2  ) 

bydvd (0,3,0)  =  deedvd(0,3,0)*rrmu(kv, jv)*ety(kv, jy,l)*gamma/pr 
bydvd (1,0,0)  =  (deedvd (1,0,0) *rrmu (kv , j  v) *ety (kv , j  v , 1 ) *rho (kv ,  J  v ,  1 

1  )  **2*gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j v , 1) *tyydvd (1 ,0,0) +txyvdO 

2  0+rhou (kv , j  v , 1) *txydvd (1,0,0)) -rhov (kv , j  v , 1) * tyydvlO-txyvO-rhou 

3  (kv , j v , 1) *txydvlO) ) / (rho (kv , j v , 1) **2*pr)  .  ,  . 

bydvd (1,0,1)  =  (deedvd  (1,0,1) *rrau (kv , j  v) *ety (kv , j  v , 1 ) *rho (kv , j  v , 1 

1  )  *gamma+pr* (txyvdOl+txydvlO) ) / (rho (kv , j v, 1) *pr) 

bydvd (1,0, 2)  =  (tyydvl0+txyvd02)/rho(kv, jv,l) 

bydvd (1,1,0)  =  (deedvd (1 ,1,0) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j v , 1 

1  )  *  *2*gamma+pr* (rho  (kv , j v , 1) *txyvdlO-txyvl) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

bydvd (1 ,2,0)  =  (rho(kv, j v, 1) *txyvd20-txyv2)/rho(ky , jy, 1) **2 
bydvd (2 , 0,0)  =  (deedvd (2,0,0)*  rrmu (kv , j  v) *  ety (kv , j  v , 1) *rho (ky , j  v , 1 

1  )  **2*gamma+pr* (rho(kv, jv , 1) * (tyyvdOO+rhov (kv , jv, 1) * tyydvd (2, 0,0 

2  ) ^rhou (kv , j  v , 1) * txydvd (2,0,0))- tyyvO-rhov (kv , j  v , 1) *tyydv20-rhou 


3  (kv , j  v , 1) +txydv20) ) / (rho (kv , j  v , 1 ) * *2*pr) 
bydvd(2,0,l)  =  (tyyvd01+txydv20)/rho(kv, jv,l) 

bydvd (2, 0,2)  =  (deedvd(2,0,2)*rrmu(kv, jv)*ety(kv, jv,l)*rho(kv, jv,l 
1  ) +gamma+pr* (tyy vd02+tyydv20) ) / (rho (kv ,  j  v ,  1) *pr) 

bydvd (2, 1,0)  =  (rho(kv, jv,l)*tyyvdlO-tyyvl)/rho(kv, jv,l)**2 
bydvd (2,2,0)  =  (deedvd (2,2,0) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) *  *2*gamma+pr* (rho (kv , j v , 1) *tyyvd20-tyyv2) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

bydvd (3, 0,0)  =  deedvd(3,0,0)*rrmu(kv, jv)*ety(kv, jv,l)*gamma/pr 
byudd (0,0,0)  =  (dezudd  (0,0,0) *rrnu (kv , j  v) *rho (kv , j  v , 1) *  *3*zty (kv , j 

1  v ,  1)  *gamma+pr*  (rho  (kv  ,jv,l)**2*  (rhov  (kv ,  j  v ,  1)  * tyyudd  (0,0,0)  +rho 

2  u (kv , j  v , 1) * txyudd (0,0,0)) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) *tyyud0 

3  0-2*rhou (kv , j  v , 1 ) *txyud00) +2*rhov (kv , j  v , 1) *tyyu0+2*rhou (kv , j  v , 1 

4  ) *txyu0))/(rho(kv, jv,l)**3*pr) 

byudd (0,0,1)  =  (dezudd (0,0,1) *rrmu (ky , j  v) *rho (kv , j  v , 1) * *2*zty (kv , j 

1  v , 1) *gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) * tyyudd (0,0,1) +rhou (k 

2  v , j  v , 1 ) * txy udd (0,0,1) + txyudOO) -rhov ( kv , j  v , 1 ) *tyyud01 -rhou (kv , j  v 

3  , 1) *txyud01-txyu0) ) / (rho (kv , j v , 1) **2*pr) 

byudd (0,0, 2)  =  (dezudd (0,0, 2) *rrmu(kv, jv)*rho(kv, jv, 1) **2*zty(kv, j 

1  v , 1) *gamma+pr * (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) * tyyudd (0,0,2) +tyyudO 

2  0+rhou (kv , j  v , 1) *txyudd (0,0,2)) -rhov (kv , j  v , 1) *tyyud02- tyyuO-rhou 

3  (kv , j  v , 1) *txyud02) ) / (rho (kv , j  v , 1) * *2*pr) 

byudd(0,0,3)  =  dezudd (0,0, 3) +rrmu(kv, jv)*zty(kv, jv, 1) *gamma/pr 
byudd (0,1,0)  =  ( dezudd (0,l,0)*rrmu(kv, jv)*rho(kv, jv, 1) **2*zty (kv, j 

1  v , 1) *gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) *tyyudd (0,1,0) +rhou (k 

2  v,jv,l)f txyudd (0,1,0) +txy udOO) -rhov (kv , j  v , 1) * tyyudOl-rhou (kv , j  v 

3  , 1) * txyudOl-txyuO) ) / (rho (kv , j  v , 1) **2*pr) 

byudd (0,1,1)  =  (dezudd (0,1,1) *rrmu (kv , j  v) *rho (kv ,jv,l)*zty(kv,jv,l 
1  )  *ganima+2*pr*txyud01)  /  (rho(kv ,  j  v ,  1)  *pr) 

byudd (0,1, 2)  =  (tyyud01+txyud02)/rho(kv, jv, 1) 

byudd (0,2,0)  =  (dezudd (0,2,0) *rrau (kv , j v) *rho (kv , j  v , 1) *  *2*zty (kv , j 

1  v , 1) *gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) *tyyudd (0,2,0) +tyyudO 

2  0+rhou (kv , j  v , 1) * txyudd (0,2,0)) -rhov (kv , j  v , 1) * tyyud02- tyy uO-rhou 

3  (ky, jv,l)*txyud02))/ (rho(kv, jv, 1) **2*pr) 
byudd(0,2,l)  =  (tyyud01+txyud02)/rho(kv, jv, 1) 

byudd (0,2,2)  =  (dezudd  (0,2,2) *rrmu (kv , j  v) *rho (kv , j  v , 1) *zty (kv , j  v , 1 
1  ) *gamma+2*pr*tyyud02) / (rho(kv , j v , 1) *pr) 

byudd(0,3,0)  =  dezudd (0, 3, 0)*rrmu(kv, jv)*zty(kv, jv, 1) *gamma/pr 
byudd (1,0,0)  =  (dezudd (1,0,0) *rrmu (kv , j  v) *rho (kv , j  v , 1 ) * *3*  zty (kv , j 

1  v,l)*ganuna+pr*(rho(kv, jv,l) **2* (rhov (kv,jv,l) *tyyudd(l, 0,0) +rho 

2  u (kv , j  v , 1 ) * txyudd (1 ,0,0)) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) *tyyudl 

3  0-2*rhou (kv , j  v , 1 ) *txyudlO) +2*rhov (kv , j  v , 1) *tyyul +2*rhou (kv , j  v , 1 

4  )*txyul))/(rho(kv, jv, 1) **3*pr) 

byudd(l,0,l)  =  (dezudd (1 ,0, 1) *rrmu(kv, jv) *rho(kv, jv, 1) **2*zty (kv, j 

1  v , 1) *gamma+pr* (rho (kv , j v , 1) * txyudlO-txyul) ) / (rho (kv , j v , 1) **2*pr 

2  ) 

byudd(l,0,2)  =  (rho(kv, jv,l)*tyyudlO-tyyul)/rho(kv, jv,l)**2 
byudd (1,1,0)  =  (dezudd (1,1,0) *rrmu (kv , j  v) *rho (kv ,jv,l)**2*zty (kv , j 

1  v, 1) *gamaa+pr* (rho(kv, j v, 1) *txyudlO-txyul) ) / (rho(kv, j v, 1) **2*pr 

2  ) 

byudd(l,2,0)  =  (rho(kv, j v, 1) *tyyudlO-tyyul)/rho(kv, jv, 1) **2 
byudd (2, 0,0)  =  (dezudd (2, 0,0)*rrmu(kv, jv)*rho(kv, jv, 1) **3*zty (kv, j 

1  v, 1) *gamma+pr* (rho(kv, jv, 1) **2* (rhov(kv, jv, 1) *tyyudd(2,0,0) +rho 

2  u(kv, jv,l) * txyudd (2,0,0) )+rho(kv, jv,l)*(-2*rhov(kv, jv,l)*tyyud2 

3  0-2*rhou(kv , j v, 1) *txyud20) +2*rhov(kv, jv, 1) *tyyu2+2*rhou(kv, jv, 1 

4  )  **'r7"0))  /  (rho(kv,  jv,l)**3+pr) 

byudd(2,0, 1)  =  (rho(kv , j v , 1) *txyud20-txyu2) /rho(kv, jv , 1) **2 
byudd (2, 0,2)  =  (dezudd (2, 0,2) ♦rrmu(kv , j v) *rho(kv, jv, 1) **2*zty (kv, j 
1  v, 1) *gamma+pr* (rho(kv, jv , 1) *tyyud20-tyyu2) ) / (rho(kv, j v, 1) **2*pr 


2byudd(2,l,0)  =  (rho(kv, jv,l)*txyud20-txyu2)/rho(kv, jy,l)**2 

by  udd  (2,2,0)  =  (dezudd  (2,2,0)  *rrmu  (kv ,  j  v)  *rho  (kv  ,jr,l)  *y 2*zty  0"  >  - 

1  v, 1) *gamma+pr* (rho(kv , jv , 1) *tyyud20-tyyu2))/ (rho(kv, jv, 1) **2*pr 

2  \ 

by udd (3, 0,0)  =  dezudd(3,0,0)*rrmu(kv, jv)*zty(kv, jy , l)*gamma/pr 
byvdd (0,0,0)  =  (deevdd (0,0,0) *rrmu (kv , j v) *ety (kv , j v , 1) *rho (kv, J  v ,  1 

1  ) **3*gamma+pr* (rho (kv , j v , 1) **2* (rhov (kv, j v , 1) *tyyvdd (0,0,0) +rho 

2  u  (kv ,  j  v ,  1 )  *  txy  vdd  (0 , 0 , 0) )  +rho  (kv ,  j  v ,  1 )  *  (-2*rhov (kv ,  j  v ,  1 ) * tyy vdO 

3  0-2*rhou (kv , j  v , 1) *txy vdOO) +2*rhov (kv , j  v , 1) *tyyv0+2*rhou (kv , j  v , 1 

4  )*txyvO))/(rho(kv, jv,l)**3*pr) 

byvdd (0,0,1)  =  (deevdd (0,0,1) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j v ,1 

1  )  *  *2*gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) *tyyvdd (0, 0,1) +rhou (k 

2  v , jv , 1) *txyvdd (0,0,1) +txyvd00) -rhov (kv , jv , 1) *tyyvd01-rhou(kv, jv 

3  , 1) *txyvd01-txyv0) ) / (rho (kv , jv, 1) **2*pr)  . 

byvdd (0,0,2)  =  (deevdd (0,0,2) *rrmu (kv , j  v) *ety (kv , *  rho (kv , j  v , 1 

1  ) * *2*gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) *tyy vdd (0,0,2) +tyy vdO 

2  0+rhou(kv , jv , 1) *txyvdd(0,0,2) ) -rhov (kv , j v , 1) *tyyvd02-tyyv0-rhou 

3  (kv , j  v , 1) *txy vd02) ) / (rho (kv , j  v , 1) **2*pr) 

byvdd (0,0,3)  =  deevdd (0,0, 3) *rrmu(kv,jv)*ety(kv, jv,l)*gamma/pr 
byvdd (0,1,0)  =  (deevdd (0,1,0) *rrmu (kv , j  v) *ety (kv , j  v , 1)  ■ *rho (kv , , y v ,1 

1  ) **2*gamma+pr* (rho (kv , j  v , 1) * (rhov (kv , j  v , 1) *tyy vdd (0,1,0) +rhou (k 

2  v , j v , 1) *txyvdd (0,1 ,0) +txyvd00)-rhov(kv, jv , 1) *tyyvd01~rhou(kv, jv 

3  , 1) *txyvd01-txyv0) ) / (rho(kv , j v , 1) **2*pr) 

byvdd (0, 1 , 1)  =  (deevdd (0,l,l)*rnnu(kv, jv)*ety(kv, jv,l)+rho(kv, jv,l 
1  ) *gamma+2*pr*txyvd0l)/ (rho(kv, jy,l)*pr) 

byvdd (0,1 ,2)  =  (tyyvd01+txyvd02)/rho(kv, jv,l)  .  ,  , 

byvdd (0,2,0)  =  (deevdd (0,2,0) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **2*gamma+pr* (rho (kv , j v , 1) *  (rhov (kv , jv , 1) *tyyvdd (0,2,0) +tyyvdO 

2  0+rhou (kv , j  v , 1) *txyvdd (0,2,0)) -rhov (kv , j  v , 1) *tyyvd02-tyy vO-rhou 

3  (kv , j  v , 1) *txy vd02) ) / (rho (kv , j v , 1) *  *2*pr) 

byvdd  (0,2,1)  =  (tyyvd01+txyvd02)/rho(kv,  jv,  1)  ........ 

byvdd (0,2,2)  =  (deevdd (0,2,2)*  rrmu (kv , j  v) *ety (kv , j  v , 1 ) *rho (kv , j  v , 1 
1  ) *gamna+2*pr*tyyvd02) / (rho (kv , j v, 1) *pr) 

byvdd (0,3,0)  =  deevdd (0, 3, 0)*rrmu(kv,jv)*ety(kv,jv,l)*gamma/pr 
byvdd (1,0,0)  =  (deevdd (1,0,0) *rrou (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j  v , 1 

1  ) **3*gamma+pr* (rho (kv , j v , 1) **2* (rhov (kv , j v, 1) *tyyvdd(l ,0,0) +rho 

2  u (kv ,  j  v ,  1)  *txyvdd (1 , 0 , 0) ) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) *tyyvdl 

3  0-2*rhou (kv , j  v , 1) *txyvdlO) +2*rhov (kv , j v , 1) *tyyv l+2*rhou (kv , j v, 1 

4  )  *txyvl)  )  /  (rho  (kv ,  j  v,  1)  **3*pr) 

byvdd (1 ,0, 1)  =  (deevdd(l ,0, 1) *rrmu(kv, jv) *ety (kv, jv,l) *rho(kv, jv, 1 

1  ) **2*ganuna+pr* (rho(kv , j v , 1) *txyvdlO-txyvl) ) / (rho(kv, j v, 1) **2*pr 

2  ) 

byvdd(l ,0,2)  =  (rho(kv, jv,l)*tyyvdlO-tyyvl)/rho(kv, jy,l)**2 

byvdd (1,1,0)  =  (deevdd (1 ,1,0) *rrmu (kv , j v) *ety (kv , j v , 1) *rho (kv , j v , 1 

1  ) **2*gamjna+pr* (rho (kv , j v , 1) *txyvdlO-txyvl) ) / (rho (kv , j  v , 1) **2*pr 

2  ) 

byvdd (1 ,2,0)  =  (rho(kv, jv,l)*fcyyvdlO-fcyyvl)/rho(kv, jy,l)**2 

byvdd (2,0,0)  =  (deevdd (2,0,0) *rrnu (kv , j  v) *ety (kv , j v , 1) *rho (kv , j  v , 1 

1  ) **3*gamma+pr* (rho (kv , j v , 1) **2* (rhov (kv , j v , 1) *tyyvdd (2,0,0) 

2  u (kv , j v , 1) *txy vdd (2,0,0)) +rho (kv , j  v , 1) * (-2*rhov (kv , j  v , 1) * tyyvd2 

3  0-2*rhou(kv, j v, 1) *txyvd20) +2*rhov (kv , jv, 1) *tyyv2+2*rhou(kv, jv, 1 

4  ) *txyv2) ) / (rho (kv , jv , 1) **3*pr)  .  0 

byvdd(2 ,0, 1)  =  (rho(kv , jv, 1) *txyvd20-txyv2) /rho(ky , jy , 1) **2 
byvdd (2,0,2)  =  (deevdd (2,0,2) *rrmu (kv , j  v) *ety (kv , j  v , 1) *rho (kv , j v , 1 

1  )**2*ganuna^pr«(rho(kv,jv,l)*tyyvd20-tyyv2))/(rho(kv,jv,l)**2*pr 

2  ) 

byvdd(2, 1 ,0)  =  (rho(kv, j v, 1) *txyvd20-txyv2)/rho(kv, jv, 1) **2 

byvdd(2 ,2 ,0)  =  (deevdd(2 ,2,0) *rrmu (kv , jv) *ety (kv , j v, 1) *rho(kv, jv, 1 


fppp(0, 0,0,0)  =  3*caudd00/rdj (kv, jv) 
fppp(0, 0,0,1)  =  2*caudd01/rdj (kv, jv) 
fppp(0,0,0,2)  =  2*cauad02/rdj (kv, jv) 
fppp(0,0,0,3)  =0 

fppp(0, 0,1,0)  =  cauddlO/rdj (kv, jv)+caudd01/rdj (kv, j v) 
fppp(0, 0,1,1)  =  0 
fppp(0,0,l,2)  =  0 

fpPP (0,0, 1,3)  =  0 

fppp(0, 0,2,0)  =  caudd20/rdj (kv, jv)+caudd02/rdj (kv, jv) 
fppp(0, 0,2,1)  =  0 
fppp(0, 0,2,2)  =  0 

fppp(0,0,2,3)  =  0 
fppp(0, 0,3,0)  =  0 
fppp(0, 0,3,1)  =  0 
fppp(0,0,3,2)  =  0 
fppp(0,0,3,3)  =  0 

fppp(0, 1,0,0)  =  2*cauddlO/rdj (kv, jv) 
fppp(0, 1,0,1)  =  0 
fppp(0, 1,0,2)  =  0 

fpPP (0, 1 ,0,3)  =  0 

fppp(0, 1,1,0)  =  0 
fppp(0, 1,1,1)  =  0 
fppp(0, 1,1,2)  =  0 

fppp(0, 1.1,3)  =  0 

fppp(0, 1,2,0)  =  0 
fppp(0, 1,2,1)  =  0 
fppp(0,l,2,2)  =  0 
fppp(0, 1,2,3)  =  0 
fppp(0, 1,3,0)  =  0 
fppp(0, 1,3,1)  =  0 
fppp(0, 1 ,3,2)  =  0 
fppp(0,l,3,3)  =  0 

fppp(0,2,0,0)  =  2*caudd20/rdj (kv, jv) 
fppp(0,2,0,l)  =  0 

fpPP (0,2, 0,2)  =  0 
fpPP (0,2,0, 3)  =  0 
fpPP (0,2, 1 ,0)  =  0 
fpPP (0,2, 1,1)  =  0 
fpPP (0,2, 1 ,2)  =  0 
fppp(0,2,l,3)  =  0 
fpPP (0,2, 2,0)  =  0 

fppp(0,2,2,l)  =  0 
fppp(0,2,2,2)  =  0 

fppp(0,2,2,3)  =  0 
fppp(0,2,3,0)  =  0 
fppp(0,2,3,l)  =  0 
fppp(0,2,3,2)  =  0 
fppp(0,2,3,3)  =  0 
fppp(0, 3,0,0)  =  0 
fppp(0,3,0,l)  =  0 
fppp(0,3,0,2)  =  0 
fppp(0,3,0,3)  =  0 
fppp(0,3,l,0)  =  0 
fpPP (0,3, 1 , 1)  =  0 
fppp(0,3,l,2)  =  0 
fppp(0,3,l,3)  =  0 
fppp(0,3,2,0)  =  0 
fppp(0, 3,2,1)  =  0 
fppp(0,3,2,2)  =  0 
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fppp(0>3,2,3)  —  0 

fppp(0,3,3,0)  =  0 

fppp(0,3,3,l)  =  0 

fppp(0, 3,3,2)  =  0 

fppp(0,3,3,3)  =  0 

fppp(l, 0,0,0)  =  (ztx(kv, jv,l) *(pddd (0,0,0) -txxddd (0,0,0) )-zty(kv,j 

1  v,l)*txyddd(0,0,0))/rdj (kv, jv) 

fppp(l>0>0>!)  =  (-zty(kv, jv,l)*txyddd(0,0,l)+ztx(kv, jv,l)*(pddd(0, 
1  0,1) -txxddd (0,0,l))+caudd00)/rdj (kv, jv) 

f ppp (1,0, 0,2)  =  (ztx(kv, jv,l) *(pddd (0,0,2) -txxddd (0,0,2) )-ssty(kv, j 
1  v,l)*txyddd(0,0,2))/rdj (kv, jv) 

fppp(l,0,0,3)  =  0 

fppp(l, 0,1,0)  =  (-zty(kv, jv,l) vtxyddd (0,1,0) +ztx(kv,jv,l)*(pddd(0, 
1  l,0)-txxddd(0,l,0))+caudd00)/rdj (kv, jv) 
fppp(l»°»l»!)  =  (*tx(kv, jv,l)*pddd(0,l,l)+2*caudd01)/rdj (kv, jv) 
fppp(l,0,l,2)  =  caudd02/rdj (kv, jv) 
fppp(1.0,l,3)  =  0 

f ppp (1,0, 2,0)  =  (ztx(kv, jv,l) *(pddd (0,2,0) -txxddd (0,2,0) )-zty(kv, j 
1  v,l)*txyddd(0,2,0))/rdj (kv, jv) 

fppp(l, 0,2,1)  =  caudd02/rdj (kv, jv) 

fppp(l,0,2,2)  =  ztx(kv, jv,l)*pddd (0,2,2) /rdj(kv,jv) 

fppp(l,0,2,3)  =  0 

fppp(l, 0,3,0)  =  0 

fppp(l, 0,3,1)  =  0 

fppp(l,0,3,2)  =  0 

fppp(l,0,3,3)  =  0 

f ppp (1, 1,0,0)  =  (~zty(kv, jv,l)*txyddd(l,0,0)+ztx(kv, jv,l)*(pddd(l, 
1  0,0) -txxddd (l,0,0))+caudd00)/rdj (kv, jv) 

f ppp (1 , 1 ,0 , 1)  =  (ztx (kv , j  v , 1) *pddd(l ,0, 1) +cauddl0+caudd01) /rd j (kv, 
1  jv) 

fppp(l*l>0»2)  =  caudd02/rdj (kv, jv) 
fppp(l,l,0,3)  =  0 

fppp(l, 1,1,0)  =  (ztx(kv, jY,l)*pddd(l,l,0)+2*cauddl0)/rdj (kv, jv) 

fppp(l, 1,1,1)  =  0 

fppp(l»l,l,2)  =  0 

fppp(l,l,l,3)  =  0 

f ppp (1,1, 2,0)  =  caudd20/rdj (kv, jv) 

fppp(l, 1,2,1)  =  0 

fppp(l,l,2,2)  =  0 

fppp(M,2,3)  =  0 

fppp(l, 1,3,0)  =  0 

fppp(l, 1,3,1)  =  0 

fppp(l,l,3,2)  =  0 

f PPP (1,1, 3, 3)  =  0 

fppp(l >2,0,0)  =  (ztx(kv, jv,l) *(pddd (2, 0,0) -txxddd (2,0,0) )-zty(kv, j 
1  v,l)*txyddd(2,0,0))/rdj (kv, jv) 

fppp(l>2,0,l)  =  caudd20/rdj (kv, jv) 
fppp(l,2,0,2)  =  ztx(kv. jv,l)*pddd(2,0,2)/rdj (kv, jv) 
fppp(l,2,0,3)  =  0 
fppp(l,2,l,0')  =  caudd20/rdj  (kv,  jv) 
f PPP (1,2, 1,1)  =  0 
^PPPd.2,1,2)  =  0 
fppp(l,2,l,3)  =  0 

fppp(l,2,2,0)  =  ztx(kv, jv,l)*pddd (2,2,0) /rdj (kv, jv) 

fppp(l,2,2,l)  =  0 

fppp(l,2,2,2)  =  0 

fppp(l,2,2,3)  =  0 

fppp(l,2,3,0)  =  0 

fppp(l,2,3,l)  =  0 
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fppp(l»2,3,2) 
fppp(l,2,3,3) 
fppp(l,3,0,0) 
fppp(l, 3,0,1) 
fppp(l,3,0,2) 
fppp(l,3,0,3) 
fppp(l,3,l,0) 
fppp(l,3,l,l) 

fPPP(l,3, 1,2) 
fppp(l,3,l,3) 
fppp(l,3,2,0) 
fppp(l,3,2,l) 
fppp(l,3,2,2) 
fppp(l,3,2,3) 
fpPP(l,3,3,0) 
fppp(l,3,3,l) 
fppp(l,3,3,2) 


fppJc^ololo)  =  ^(aty  (kv ,  j  v ,  1)  *  (pddd  (0,0,0)  -tyyddd  (0,0,0))  -atx  (kv ,  j 
1  v,l)*txyddd(0,0,0))/rdj(kv,jv) 

fppp(2,0,0,l)  =  (aty(kv, jv,l) * (pddd (0,0,1) -tyyddd (0,0,1) ) -atx (kv,j 

1  v,l)*txyddd(0,0,l))/rdj (kv, jv)  . 

fppp(2,0,0,2)  =  (aty(kv, jv,l)*(pddd(0,0,2)-tyyddd(0,0,2))-atx(kv, j 

1  v , 1) * txyddd (0,0,2) +caudd00) /rd j (kv, jv) 

fppp (2, 0,1,0)  =  (aty(kv,  jv,l)*(i>dud(0,l,0)-tyyddd(0,l,0))-atx(kv,3 
1  v,l)*txyddd(0,l,0))/rdj (kv, jv) 

fppp(2, 0,1,1)  =  aty (kv , j v , 1) *pddd(0, 1 , 1) /rd j (kv , j  v) 
fppp(2, 0,1,2)  =  cauddOl/rdj (kv , jv) 

fppp (2, 0,2,0)  =  (ety(kv, jv,l)*(pddd(0,2,0)-tyyddd(0,2,0))-atx(kv, j 
1  v, 1) * txy ddd (0,2,0) +caudd00) / rd j (kv, jv) 

fppp(2, 0,2,1)  =  cauddOl/rdj (kv , j  v) 

fppp(2,0,2,2)  =  (aty  (kv ,  j  v ,  1) *pddd (0,2,2) +2*caudd02) /rd j (kv , j  v) 

fpPP (2, 0,2, 3)  =  0 

fppp(2, 0,3,0)  =  0 

fppp(2, 0,3,1)  =  0 

fpPP (2, 0,3, 2)  =  0 

f  ppp  (2  *  0  •  3 « 3)  =0 

fppp(2, 1,0,0)  =  (ssty(kv,  jv,l)*(pddd(l,0,0)-tyyddd(l,0,0))-atx(kv,  j 
1  v,l)*txyddd(l,0,0))/rdj (kv, jv) 
fppp(2, 1,0,1)  =  aty(kv,jv,l)*pddd (1,0,1) /rdj (kv, jv) 
fppp (2, 1,0,2)  =  cauddlO/rdj (kv, jv) 
fppp(2, 1,0,3)  =0 

fppp(2, 1,1,0)  =  zty(kv,jv,l)*pddd (1,1,0) /rdj (kv, jv) 

fppp(2, 1,1,1)  =  0 

fppp(2,l,l,2)  =  0 

fppp(2, 1,1,3)  =0  .  % 

fppp(2, 1,2,0)  =  cauddlO/rdj (kv, jv) 

fppp(2, 1,2,1)  =  0 

fpPP (2, 1 ,2,2)  =  0 

fppp(2, 1,2,3)  =  0 

fppp(2, 1,3,0)  =  0 

fppp(2, 1,3,1)  =  0 

fppp(2,l,3,2)  =  0 

f PPP (2 , 1 , 3 , 3)  =0 

f ppp (2 , 2 , 0 , 0)  =  ( aty (kv , j  v , 1 ) * (pddd (2,0,0) -tyyddd (2 , 0 , 0) ) - a tx (kv , j 
1  v ,  1)  * txyddd  (2,0,0)  -t-cauddOO)  /rdj  (kv ,  j v) 

fppp(2, 2,0,1)  =  cauddOl/rdj (kv, jv) 


Aw1 


TOWMj ggg 


fppp(2,2,0,2)  =  (zty(kv, jv, 1) *pddd(2,0,2) +caudd20+caudd02)/rdj (kv, 
1  jv) 

fppp(2,2,0,3)  =  0 

fppp(2, 2, 1 ,0)  =  cauddlO/rdj (kv, jv) 


fppp (2, 2, 1,1) 

fppp(2f2,l,2) 

fppp(2,2,l,3) 

fppp(2,2,2,0)  =  (zty(kv, jv, 1) *pddd(2,2,0)+2*caudd20)/rdj (kv, jv) 

fppp(2,2,2,l)  =  0 

fppp(2,2,2,2)  =  0 

fppp(2»2,2, 3)  =  0 

fppp(2, 2,3,0)  =  0 

fppp(2,2,3,l)  =  0 

fppp(2,2,3,2)  =  0 

fppp(2,2,3,3)  =  0 

fppp(2, 3,0,0)  =  0 

fppp(2,3,0,l)  =  0 

fppp (2, 3, 0,2)  =  0 

fppp(2,3,0,3)  =  0 

fpPP (2, 3, 1,0)  =  0 

fpPP(2,3,l,l)  =  0 

fpPP (2, 3, 1,2)  =  0 

fppp (2, 3, 1 ,3)  =  0 

fppp (2, 3, 2,0)  =  0 

fppp(2,3,2,l)  =  0 

fppp(2,3,2,2)  =  0 

fppp(2,3,2,3)  =  0 

fpPP (2, 3, 3,0)  =  0 

fppp(2,3,3,l)  =  0 

fppp (2 i 3, 3, 2)  =  0 

fpPP (2 ,3, 3, 3)  =  0 

f  ppp (3 , 0 , 0 , 0)  =  ( cau*  pddd (0,0,0) +3*caud0*pdd00+3*  cauddOO*pdO-byddd 
1  (0,0,0) *zty(kv, jv,l) -bxddd (0,0,0) *ztx(kv, jv,l))/rdj (kv, jv) 

f  ppp (3 , 0 , 0 , 1 )  =  (cau  *  pddd (0,0,1) +2*caud0*pdd01 +caudl *pddOO+cauddOO 

1  *pdl+2*caudd01*pd0-byddd(0,0,l)*zty (kv, jv,l) -bxddd (0,0,1) *ztx(k 

2  v, jv,l))/rdj (kv, jv) 

f  ppp (3 , 0 , 0 , 2)  =  (cau*pddd (0,0,2) +2*caud0*pdd02+caud2*pdd00+caudd00 

1  *pd2+2*caudd02*pd0-byddd (0,0,2)*  zty (kv , j v , 1) -bxddd (0,0,2)*  ztx (k 

2  v, jv,l))/rdj(kv,jv) 

f  ppp (3 , 0 , 0 , 3)  =  (cauddOO* (pd3+l) -byddd (0,0,3) *zty (kv , j  v , 1) -bxddd (0 
1  ,0,3)*ztx(kv, jv,l))/rdj (kv, jv) 

fppp (3 , 0 , 1 , 0)  =  (cau* pddd (0,1,0) +caudO*  pddl0+caud0*pdd01+caudl *pdd 

1  00+caudd00*pdl+cauddl0*pd0+caudd01*pd0-byddd(0, 1,0) *zty (kv, jv, 1 

2  ) -bxddd (0,1,0)* ztx (kv, jv,l))/rdj (kv, jv) 

fppp (3 , 0 , 1 , 1)  =  (cau*pddd(0, 1 , 1) +caud0*pddll+2*caudl*pdd01+2*caudd 

1  01*pdl-byddd(0,l,l)*zty(kv, jv,l) -bxddd (0,1,1) *ztx(kv, jv, l))/rdj 

2  (kv , jv) 

fppp (3,0, 1 ,2)  =  (caudl*pdd02+caud2*pdd01+caudd01*pd2+caudd02*pdl-b 
1  yddd(0, 1,2) *zty(kv, jv,l)-bxddd(0,l,2) *ztx(kv, jv, l))/rdj (kv, jv) 

fppp(3, 0,1,3)  =  caudd01*(pd3+l)/rdj (kv, jv) 

fppp (3 , 0 , 2 , 0)  =  (cau*pddd (0,2,0) +caud0*pdd20+caud0*pdd02+caud2*pdd 

1  00+caudd00*pd2+caudd20*pd0+caudd02*pd0-byddd (0,2,0) *zty (kv , j  v , 1 

2  ) -bxddd (0,2,0) *ztx(kv, jv, l))/rdj (kv, jv) 

fppp (3, 0,2, 1)  =  (caudl*pdd02+caud2*pdd01+caudd01*pd2+caudd02*pdl-b 
1  yddd (0 , 2 , 1 ) *  zty (kv , j  v , 1 ) -bxddd (0,2,l)*ztx(kv,jv,l))/rdj (kv , j  v) 

f  ppp (3 , 0 , 2 , 2)  =  (cau*pddd (0,2,2) +caud0*pdd22+2*caud2*pdd02+ 2*caudd 

1  02*  pd2- byddd (0,2,2)*zty(kv,jv,l) -bxddd (0 , 2 , 2) *  ztx (kv , j  v , 1 )  )  /rd j 

2  (kv , j v) 

fppp(3,0,2,3)  =  caudd02* (pd3+l) /rdj (kv , j v) 


m 


f ppp (3 , 0 , 3 , 0)  =  (cauddOO* (pd3+l) -byddd (0,3,0) *zty (kv , j  y , 1) -bxddd (0 
1  ,3,0)*ztx(kv, jv,l))/rdj(kv, jv) 

f ppp (3 , 0, 3, 1)  =  cauddOl* (pd3+l)/rdj (kv, jv) 
fppp(3,0,3,2)  =  caudd02* (pd3+l) /rdj (ky, jy) 
fppp(3,0,3,3)  =  0 

f ppp (3 , 1 ,0,0)  =  (cau*pddd(l ,0,0) +2*caudO*pddlO+caudl*pddOO+cauddOO 

1  *pdl+2*cauddl0*pd0-byddd(l,0,0)*zty(kv, jv,l) -bxddd (1,0,0) *ztx(k 

2  y> J v , 1) ) / rdj (kv, jv) 

fppp (3, 1 ,0, 1)  =  (cau*pddd(l,0, 1) +caudO*pddll+caudl*pddlO+caudl*pdd 

1  01 +cauddlO*pdl +caudd01 *pdl -byddd (1 , 0 , 1) *zty (kv , j  v , 1) -bxddd (1  0, 

2  l)*ztx(kv, jv,l))/rdj (kv, jv) 

fppp (3 , 1 , 0 , 2)  =  (caud2*pddl0+caudl*pdd02+cauddl0*pd2+caudd02*pdl-b 

1  yddd(l ,0,2) *zty(kv , jv,l) -bxddd (1 ,0,2) *ztx(kv,jv,l) ) /rdj (kv, jv) 
f ppp (3 , 1 ,0, 3)  =  cauddlO* (pd3+l) /rdj (kv, jv) 

fppp (3, 1, 1,0)  =  (cau*pddd(l, 1 ,0) +caud0*pddll+2*caudl*pddl0+2*caudd 

1  10*pdl-byddd(l , 1 , 0) *zty  (kv , j  v , 1) -bxddd (1 , 1 ,0) *ztx (kv, j  v, 1) ) /rdj 

2  (kv , jv) 

fppp(3, 1,1,1)  =  3*caudl*pddll/rdj (kv, jv) 
f ppp(3, 1 , 1 ,2)  =  caud2*pddll/rdj (kv, jv) 
fppp (3, 1,1, 3)  =  0  3 

fppp(3, 1 ,2,0)  =  (caudl*pdd20+c.aud2*pddl0+cauddl0*pd2+caudd20*pdl-b 
1  yddd(l,2,0)*zty(kv,jv,l)-bxddd(l,2,0)*ztx(kv,jv,l))/rdj(kv,jv) 
fppp (3, 1 ,2, 1)  =  caud2*pddll/rdj (kv, jv) 
fppp(3, 1 ,2,2)  =  caudl*pdd22/rd j (kv , j v) 

f  _  /  O  4  A  n  X  q  '  *  ' 

=  cauddlO* (pd3+l)/rdj (kv, jv) 

=  0 
=  0 
=  0 

,  (cau*pddd (2,0,0) +2*caud0*pdd20+caud2*pdd00+caudd00 

1  *pd2+2*caudd20*pd0-byddd (2, 0, 0)  *zty  (kv ,  j  v ,  1) -bxddd (2 , 0, 0) *  ztx (k 

2  v, Jv,l))/rdj (kv, jv) 

fppp(3,2,0,l)  =  (caudl*pdd20+caud2*pdd01+caudd01*pd2+caudd20*pdl  -b 

1  yddd (2 , 0 , 1 ) *  zty (kv , j  v , 1)  -bxddd  (2,0, 1)  *ztx  (kv ,  j v ,  1) )  /rdj  (kv ,  j v) 

fppp (3 , 2 , 0 , 2)  =  (cau*pddd (2,0,2) +caud0*pdd22+caud2*pdd20+caud2*pdd 

1  02+caudd20*pd2+caudd02*pd2-byddd  (2 , 0 , 2)  *zty  (kv ,  j  v ,  1)  -bxddd  (2 , 0 

2  2)*ztx(kv, jv,l))/rdj (kv, jv) 
fppp(3,2,0,3)  =  caudd20+ (pd3+l)/rdj (kv,  jv) 


*  *  * 

fppp (3, 1,2, 3) 
fppp(3, 1,3,0) 
fppp(3, 1,3,1) 
fpPP(3, 1 ,3,2) 
fppp(3, 1,3,3) 
fpPP(3,2,0,0) 


-  *  »  »  *  •  •  *  - -  vr*''  */  /  *  ^ j  yaT  |  j  v  j 

fpPP (3, 2, 1,0)  =  (caudl*pdd20+caud2*pddl0+cauddl0*od2+caudd20*pdl-b 


fppp(3,2,l,l)  =  caud2*pddll/rdj (ky, jv) 
fppp(3,2,l,2)  =  caudl*pdd22/rdj (kv, jv) 
fpPP(3,2, 1 ,3)  =0 

f ppp (3 , 2 , 2 , 0)  =  (cau*pddd (2,2,0) +caud0*pdd22+2*caud2*pdd20+2*caudd 

1  20*  Pd2- byddd (2 , 2 , 0) *  zty (kv , j  v , 1) -bxddd (2 , 2 , 0) *  ztx (kv , j  v , 1) ) /rd j 

2  (kv,jv)  J 


fppp( 3, 2,2,1)  =  caudl*pdd22/rdj (Kv, jv) 
fppp(3,2,2,2)  =  3*caud2*pdd22/rdj(kv, jv) 
fppp(3,2,2,3)  =0 

f PPP (3 , 2 , 3 , 0)  =  caudd2Q* (pd3+ 1) /rdj (kv  j v) 
fppp(3 ,2,3,1)  =0 
fppp(3,2,3,2)  =  0 
f ppp (3 , 2 , 3 , 3)  =  0 

fppp(3,3,0,0)  =  (cauddOO* (pd3+l) -byddd(3, 0,0) *zty(kv, jv, 1) -bxddd(3 
1  ,0,0) *ztx (kv , j v, 1) ) /rdj  (kv, j v)  V 

f PPP (3 i 3 , 0 , 1)  =  cauddOl + (pd3+l) /rd j (kv , j v) 
f PPP (3 , 3 , 0 , 2)  =  caudd02* (pd3+l) /rdj (kv, j v) 
fppp (3, 3,0, 3)  =0 

f PPP (3 , 3 , 1 , 0)  =  cauddlO* (pd3+l) /rdj (kv , jv) 


fppp(3, 
fppp(3, 
fppp(3; 
fppp(3, 
fppp(3, 
fppp(3, 
fppp(3, 
fppp(3, 
fppp(3. 
fppp(3, 
f  PPP (3 1 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0( 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0, 
fppu(0: 
fppu(0, 
f ppu (0. 
fppu(0 
fppu(0 
fppu(0 
fppu (0 
fppu(0 
fppu(0 
f ppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu (0 
fppu(0 
f ppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu(0 
fppu(0 
f ppu(0 
fppu(0 
fppu (0 
fppu(0 
f ppu(0 
fppu (0 
fppu(0 
fppu(0 
f ppu(0 


,1)  =  0 
,2)  =  0 
,3)  =  0 

!,0)  =  caudd20*(pd3+l)/rdj (kv, jv) 

!,1)  =  0 

!,2)  =  0 

!,3)  =  0 

1,0)  =  0 

1,1)  =  0 

1,2)  =  0 

1.3)  =  0 
>,0)  =  0 
>,1)  =  0 
>,2)  =  0 
>,3)  =  0 
.,0)  =  0 
.,1)  =  0 
.,2)  =  0 
•i  3)  =  0 
!,0)  =  0 
!,1)  =  0 
!,2)  =  0 

5.3)  =  0 
1,0)  =  0 
1,1)  =  0 

1,2)  =  0 

1.3)  =  0 
),0)  =  0 
>,1)  =  0 
>,  2)  =  0 
),3)  =  0 
L,0)  =  0 
1,1)  =  0 
1,2)  =  0 

1.3)  =  0 

2,0)  =  0 

2,1)  =  0 

2,2)  =  0 

2.3)  =  0 
2,0)  =  0 
U)  =  0 

2,2)  =  0 

2,3)  =  0 
3,0)  =  0 

3.1)  =  0 

3.2)  =  0 

3.3)  =  0 

1,0)  =  o 

1,1)  =  0 

1,2)  =  0 

1.3)  =  0 
2,0)  =  0 

2,1)  =  0 

2,2)  =  0 

2.3)  =  0 
2,0)  =  0 

2,1)  =  0 

2,2)  =  0 

2,3)  =  0 


fppu(0,3,0,C)  =  0 
fppu(0,3,0,l)  =  0 
fppu(0,3,0,2)  =  0 
fppu(0,3,0,3)  =  0 
f ppu (0,3, 1 ,0)  =  0 
fppu(0,3,l,l)  =  0 
fppu(0,3,l,2)  =  0 
fppu(0,3,l,3)  =  0 
fppu(0, 3,2,0)  =  0 
fppu(0,3,2, 1)  =  0 
f ppu (0,3, 2  2)  =  0 
fppu(0,3,2,3)  =  0 
fppu(0,3,3,0)  =  0 
fppu(0,3,3,l)  =  0 
fppu(0,3,3,2)  =  0 
fppu(0,3,3,3)  =  0 
fppu(l, 0,0,0)  =  (-zty(kv 
1  ,0,0))/rdj(kv,jv) 

fppu(l, 0,0,1)  =  (-zty(kv 
1  ,0,l))/rdj(kv,jv) 

fppu(l ,0,0,2)  =  (-zty(ky 
1  ,0,2))/rdj (kv, jv) 

fppu(l,0,0,3)  =  0 
f ppu (1,0, 1,0)  =  (-zty (kv 
1  ,l»0))/rdj (kv, jv) 

fppu(l, 0,1,1)  =  0 
fppu(l,0,l,2)  =  0 
fppu(l, 0,1,3)  =  0 
f ppu (1,0, 2,0)  =  (-zty(kv 
1  ,2,0))/rdj(kv,jv) 

fPPu(l, 0,2,1)  =  0 
fppu(l,0,2,2)  =  0 
fppu(l,0,2,3)  =  0 
fppu(l ,0,3,0)  =  0 
fppu(l, 0,3,1)  =  0 
fppu(l,0,3,2)  =  0 
fppu(l,0,3,3)  =  0 
fppu(l, 1,0,0)  =  (-zty(kv 
1  ,0,0))/rdj(kv,jv) 

fppu(l, 1,0,1)  =  0 
fppu(l,l,0,2)  =  0 
fppu(l,l,0,3)  =  0 
fppu(l, 1,1,0)  =  0 
fppu(l, 1,1,1)  =  0 

fppu(l,l,l,2)  =  0 
fppu(l,l,l,3)  =  0 
fppu(l, 1,2,0)  =  0 
fppu(l, 1,2,1)  =  0 
fpPu(l, 1,2,2)  =  0 
fppu(l,l,2,3)  =  0 
fppu(l, 1,3,0)  =  0 
£ppu(l, 1,3,1)  =  0 
fppu(l,l,3,2)  =  0 
fppu(l, 1,3,3)  =  0 
fppu(l ,2,0,0)  =  (-zty(b 
1  ,0,0))/rdj (kv, jv) 

fppu(l,2,0,l)  =  0 
fppu(l,2,0,2)  =  0 
fppu(l ,2,0,3)  =  0 


,  jv,l)*txyddu(0,0,0)-i 
,  jv,l)*txyddu(0,0,l)-: 
, jv,l)*txyddu(0,0,2)- 


ztx (kv , j  v , 1) *txxddu (0 
ztx (kv , j v , 1) +txxddu (0 
ztx (kv , j  v , 1) otxxddu (0 


, j v , 1) * txyddu (0 , 1 , 0) -ztx (kv , j v , 1) *txxddu (0 


, j v , 1) * txyddu (0 , 2 , 0) -ztx (kv , j v , 1) * txxddu (0 


0 

0 

0 

0 

0 

0 

0 

(-zty(kv 


, j v , 1) * txyddu ( 1 , 0 , 0) -ztx (kv , j v , 1) * txxddu ( 1 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

(-zty (kv 


, j v , 1) * txyddu (2 ,0,0) -ztx (kv , jv , 1) * txxddu (2 


fppu(l,2,l,0)  =  0 
fppu(l,2,l,l)  =  0 
fppu(l,2,l,2)  =  0 
fppu(l,2,l,3)  =  0 
fppu(l, 2,2,0)  =  0 
fppu(l,2,2,l)  =  0 
fppu(l,2,2,2)  =  0 
fppu(l,2,2,3)  =  0 
fppu(l ,2,3,0)  =  0 
fppu(l,2,3,l)  =  0 
fppu(l,2,3,2)  =  0 
fppu(l,2,3,3)  =  0 
fppu(l,3,0,0)  =  0 
fppu(l,3,0,l)  =  0 
fppu(l,3,0,2)  =  0 
fppu(l,3,0,3)  =  0 
fppu(l,3,l,0)  =  0 
fppu(l,3,l,l)  =  0 
fppu(l ,3, 1 ,2)  =  0 
fppu(l,3,l,3)  =  0 
fppu(l,3,2,0)  =  0 
fpPu(l,3,2,l)  =  0 
fppu(l ,3,2,2)  =  0 
fppu(l,3,2,3)  =  0 
f ppu (1,3, 3,0)  =  0 
fppu(l ,3,3, 1)  =  0 
fppu(l,3,3,2)  =  0 
fppu(l ,3,3,3)  =  0 

fppu(2,0,0,0)  =  (-zty(kv, jv,? )*tyyddu (0,0,0) ~*tx(kv, jr,l)*txyddu(0 
1  ,0,0))/rdj(kv,jy) 

fppu(2,0,0,l)  =  (-zty(kv, jT,l)*tyyddu(0,0,l)-ztx(kT, jr,l)*txyddu(0 
1  ,0,l))/rdj (kr, jy) 

f ppu (2, 0,0, 2)  =  (-zty(kr, jv,l) *tyyddu (0,0,2) -ztx (kr , j ▼ , 1) * txyddu (0 
1  ,0,2))/rdj(kv,jv) 

fppu(2,0,0,3)  =  0 

f  ppu (2 , 0,1,0)  =  (~zty(kv,jy,l) *tyyddu (0,1,0) -ztx (kr , j  r , 1 ) * txyddu (0 
1  ,l,0))/rdj(kr,jv) 

fppu(2,0, 1,1)  =  0 
f ppu (2,0, 1,2)  =  0 
fppu(2, 0,1,3)  =  0 

fppu(2, 0,2,0)  =  (-zty(kr, jr,l)*tyyddu(0,2,0)-ztx(kr, jr,l)*txyddu(0 
1  ,2,0))/rdj(kv,jv) 

fppu(2, 0,2,1)  =  0 
f ppu(2,0,2,2)  =  0 
fppu(2,0,2,3)  =  0 
fppu(2, 0,3,0)  =  0 
fppu(2, 0,3,1)  =  0 
fppu(2,0,3,2)  =  0 
fppu(2,0,3,3)  =  0 

fppu(2, 1,0,0)  =  (-zty(kv, jv,l)*tyyddu(l,0,0)-ztx(kr, jy,l)*txyddu(l 
1  ,0,0))/rdj(kv, jy) 

fppu(2, 1,0,1)  =  0 
fppu(2, 1,0,2)  =  0 
fppu(2, 1,0,3)  =  0 
fppu(2, 1,1,0)  =  0 
fppu(2, 1,1,1)  =  0 
fppu(2, 1,1,2)  =  0 
fppu(2,l,l,3)  =  0 
fppu(2, 1,2,0)  =  0 


fppu(2,l,2,l)  =  0 
fppu(2,l,2,2)  =  0 
fppu(2,l,2,3)  =  0 
fppu(2, 1,3,0)  =  0 
fppu(2, 1,3,1)  =  0 
fppu(2, 1,3,2)  =  0 
fppu(2, 1 ,3,3)  —  0 

fppu(2,2,0,0)  =  (-zty(kv,jv,l)*tyyddu(2,0,0) 

1  ,0,0))/rdj(kv,jv) 

fppu(2, 2,0,1)  =  0 
fppu(2,2,0,2)  =  0 
fppu(2,2,0,3)  =  0 
fppu(2,2,l,0)  =  0 
fppu(2,2,l,l)  =  0 
fppu(2,2,l,2)  =  0 
fppu(2,2,l,3)  =  0 

fppu(2,2,2,0)  =  0 
fppu(2,2,2,l)  =  0 
fppu(2,2,2,2)  =  0 

f ppu(2,2,2,3)  =  0 
fppu(2,2,3,0)  =  0 
fppu(2, 2,3,1)  =  0 
fppu(2,2,3,2)  =  0 
fppu(2,2,3,3)  =  0 
fppu(2,3,0,0)  =  0 
fppu(2, 3,0, 1)  =  0 
fppu(2, 3,0,2)  =  0 
fppu(2,3,0,3)  =  0 
fppu(2,3,l,0)  =  0 
fppu(2,3,l,l)  =  0 
fppu(2,3,l,2)  =  0 
fppu(2,3,l,3)  =  0 
fppu(2,3,2,0)  =  0 
fppu(2,3,2,l)  =  0 
fppu(2, 3,2,2)  =  0 
fppu(2,3,2,3)  =  0 
fppu(2,3,3,0)  =  0 
fppu(2,3,3,l)  =  0 
fppu(2,3,3,2)  =  0 

fppu(2,3,3,3)  =0  . 

fppu(3, 0,0,0)  =  (-byddu (0 , 0 , 0) *  zty (kv , j ▼ , 1)  - 
1  ,l))/rdj (kv, jv) 

fppu(3 ,0,0,1)  =  (-byddu (0,0,l)*zty(kv,jv,l)- 
1  ,l))/rdj (kv,jv) 

fppu(3,0,0,2)  =  (-byddu(0,0,2)*zty(kv, jv,l)- 
1  ,l))/rdj (kv, jv) 

fppu(3,0,0,3)  =  (-byddu (0,0,3) *zty (kv , j  v , 1)  ■ 
1  ,l))/rdj (kr, jv) 

fppu(3, 0,1,0)  =  (-byddu (0,l,0)*zty(kv,jv,l) 
1  ,l))/rdj (kv, jv) 

fppu(3, 0,1,1)  =  (-byddu (0,1,1) *zty (kv , j v , 1) 
1  ,l))/rdj (kv, jv) 

fppu(3 ,0, 1 , 2)  =  (-byddu (0, 1 , 2) *zty (kv , j v, 1) 
1  ,l))/rdj (kv, jv) 
fppu(3,0,l,3)  =0 

fppu(3, 0,2,0)  =  (-byddu (0,2,0)*  zty (kv , j  v , 1) 
1  ,l))/rdj (kv, jv) 

fppu(3, 0,2,1)  =  (-byddu (0,2,1)*  zty (kv , j  v , 1) 
1  , 1) )  /rdj (kv , jv) 


-  ztx (kv , j  v , 1 ) * txyddu (2 


-bxddu (0 , 0 , 0) * *tx (kv , j v 

-bxddu(0,0,l)*»tx(kv, jr 
-bxddu(0,0,2)*ztx(kv, jv 

-bxddu (0 , 0 , 3) * ztx (kv , j v 

-bxddu (0,1,0)*  etx (kv , j  v 

-bxddu (0, 1 , 1) *ztx (kv , j v 
-bxddu (0 , 1 , 2) *  ztx (kv , j  v 

-bxddu (0 , 2 , 0) *  ztx (kv , j  v 
-bxddu(0,2,l)*ztx(kv, jv 
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f ppu (3, 0,2, 2)  =  (-byddu(0,2,2)*zfcy(kv,  jv,l)-bxddu(0,2,2)*ztx(kv,  jr 
,l))/rdj(kv,jv) 
fppu(3,0,2,3)  =  0 

f ppu (3, 0,3,0)  =  (-byddu(0,3,0)*zty(kv, jv,l) -bxddu (0,3,0) *ztx(kv,jv 
,l))/rdj(kv,jv) 
fppu(3,0,3, 1)  =  0 
fppu(3,0,3,2)  =  0 
fppu(3,0,3,3)  =  0 

f ppu (3, 1,0,0)  =  (-byddu(l,0,0)*zty(kv, jv,l) -bxddu (1,0,0) *ztx(kv, jv 
»l))/rdj(kv,jv) 

fppu(3, 1,0,1)  =  (-byddu(l,0,l)*zty(kv, jv,l) -bxddu (1,0,1) *ztx(kv, jv 
,l))/rdj(kv,jv) 

fppu(3, 1,0,2)  =  (-byddu(l,0,2)*zty(kv, jv,l)-bxddu(l,0,2)*ztx(kv, jv 
»l))/rdj(kv,jv) 
fppu(3,l,0,3)  =  0 

f ppu (3, 1,1,0)  =  (-byddu(l,l,0)*zty(kv, jv,l) -bxddu (1,1,0) *ztx(kv,jv 
,l))/rdj (kv, jv) 
fppu(3, 1,1,1)  =  0 
fPPu(3,l,l,2)  =  0 
fppu(3,l,l,3)  =  0 

fppu(3,l,2,0)  =  (-byddu(l,2,0)*zty (kv, jv,l) -bxddu (1,2,0) **tx(kv, jv 
, l))/rdj (kv, jv) 
fppu(3, 1,2,1)  =  0 
fppu(3, 1,2,2)  =  0 
fppu(3, 1,2,3)  =  0 
fppu(3,l,3,0)  =  0 
fppu(3, 1,3,1)  =  0 
fppu(3, 1,3,2)  =  0 
fppu(3, 1,3,3)  =  0 

fppu(3,2,0,0)  =  (-byddu(2,0,0)*zty(kv, jy,l) -bxddu (2,0,0) *ztx(kv,jv 
, l))/rdj (kv, jv) 

fppu(3,2,0,l)  =  (-byddu(2,0,l)*zty(kv, jv,l)-bxddu(2,0,l)+ztx(kv, jy 
»l))/rdj(kv,jv) 

fppu(3,2,0,2)  =  (-byddu(2,0,2)*zty(kv, jy,l) -bxddu (2,0,2) *ztx(kv,jv 
, 1)  ) /rdj (kv , jv) 
fppu(3,2,0,3)  =  0 

f  ppu (3 , 2 , 1 , 0)  =  ( -byddu (2 , 1 , 0) +z ty (kv , j  v , 1) -bxddu (2,1,0)*  ztx (kv , j  v 
. l))/rdj (kv, jv) 
f PPU (3, 2, 1,1)  =  0 
f ppu (3, 2, 1,2)  =  0 
fppu(3,2,l,3)  =  0 

f ppu (3, 2, 2,0)  =  (-byddu(2,2,0)*zty(kv, jv,l) -bxddu (2,2,0) **tx(kv, jv 
, l))/rdj (kv, jv)  , 

fppu(3,2,2,l)  =  0 
f ppu (3, 2, 2, 2)  =  0 
fppu(3,2,2,3)  =  0 
fppu(3,2,3,0)  =  0 
fppu(3,2,3,l)  =  0 
fppu(3,2,3,2)  =  0 
f ppu (3, 2, 3, 3)  =  0 

f ppu (3, 3,0,0)  =  (-byddu(3,0,0)*zty (kv, jv,l) -bxddu (3,0,0) *ztx(kv, jv 
, 1) ) /rdj (kv , jv) 
fppu(3,3,0,l)  =  0 
fppu(3,3,0,2)  =  0 
fppu(3,3,0,3)  =  0 
f ppu (3, 3, 1,0)  -  0 
fppu(3,3,l,l)  =  0 
f ppu (3, 3, 1,2)  =  0 
fppu(3,3,l,3)  =  0 


!» 

ft 

ft 


L 

a 
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fppu(3,3,2,0) 
fppu(3,3,2,l) 
fppu(3,3,2,2) 
fppu(3,3,2,3) 
f ppu(3,3,3,0) 
fppu(3,3,3,l) 
fppu(3,3,3,2) 
fppu(3,3,3,3) 
fppv(0, 0,0,0) 
fppv(0, 0,0,1) 
fppv (0,0, 0,2) 
fppv (0,0, 0,3) 
fppv(0, 0,1,0) 
fppv(0, 0,1,1) 
fppv (0,0, 1,2) 
fppv(0, 0,1,3) 
fppv(0, 0,2,0) 
fppv(0, 0,2,1) 
fppv (0,0, 2, 2) 
fppv (0,0, 2, 3) 
fppv (0,0, 3,0) 
fppv(0, 0,3,1) 
fppv(0, 0,3,2) 
fppv (0,0, 3, 3) 
fppv(0, 1,0,0) 
fppv(0, 1,0,1) 
fppv (0,1 ,0,2) 
fppv(0, 1,0,3) 
fppv (0,1, 1,0) 
fppv(0, 1,1,1) 
fppv (0,1, 1,2) 

fppv (0,1, 1,3) 
fppv(0, 1,2,0) 
fppv (0,1, 2,1) 
fppv(0, 1,2,2) 
fppv (0,1, 2, 3) 
fppv(0, 1,3,0) 
fppv(0, 1,3,1) 
fppv(0, 1,3,2) 
fppv(0, 1,3,3) 
fppv (0,2, 0,0) 
fppv (0,2,0, 1) 
fppv (0,2, 0,2) 
fppv (0,2, 0,3) 
fppv (0,2, 1,0) 
fppv (0,2, 1,1) 
fppv (0,2, 1,2) 
fppv (0,2, 1,3) 
fppv (0,2, 2,0) 
fppv (0,2,2, 1) 
fppv (0,2, 2, 2) 
fppv (0,2, 2, 3) 
fppv(0,2,3,0) 
f  PPV  (0 , 2 , 3 , 1 ) 
fppv(0,2,3,2) 
fppv (0,2, 3, 3) 
fppv (0,3, 0,0) 
fppv (0,3, 0,1) 
fppv(0,3,0,2) 


fppy(0,3,0,3)  =  0 
fpPT(0>3,l,0)  =  0 
fppv(0,3,l,l)  =  0 
fppv(0,3,l,2)  =  0 
fpPv (0,3, 1,3)  =  0 
fppy(0,3,2,0)  =  0 
fppy(0,3,2,l)  =  0 
fppv(0,3,2,2)  =  0 
fppv(0,3,2,3)  =  0 
fppv(0,3,3,0)  =  0 
fppy(0,3,3,l)  =  0 
fppv(0,3,3,2)  =  0 
fppy(0,3,3,3)  =  0 
fppv(l, 0,0,0)  =  (-»ty(kv 
,0,0))/rdj (kv,jv) 
fppv(l, 0,0,1)  =  (-sty(ky 
,0,l))/rdj(kv,jv) 
fppy (1,0, 0,2)  =  (-sty(kv 
,0,2))/rdj (kv,jv) 
fppv(l,0,0,3)  =  0 
fppy(l, 0,1,0)  =  (-zty(kv 
,l,0))/rdj(kr,jv) 
fppy(l, 0,1,1)  =  0 
fppv(l, 0,1,2)  =  0 

fppv(l, 0,1,3)  =  0 
fppv(l, 0,2,0)  =  (-aty(kT 
L  ,2,0))/rdj (kr, jy) 


,jy,l)*txyddv (0,0,0)-! 
,jy,l)*txyddy (0,0,1)-! 
,jy, l)*txyddy (0,0,2)- 


ztx (ky , jy , 1) *txxddy (0 
*fcx (ky , j y , 1) *txxddy (0 
■atx (ky , jy , 1) *txxddy (0 


,  j y , 1) *txyddy (0 , 1 ,0) -*tx (ky , jy , 1) *txxddy (0 


,  jy , 1) *txyddy (0, 2 ,0) -*tx (ky , jy , 1) *txxddy (0 


fppy(l, 0,2,1) 
fppy(l,0,2,2) 
fppy(l,0,2,3) 
fppy(l, 0,3,0) 
fppy(l, 0,3,1) 
fppv(l,0,3,2) 
fppv(l,0,3,3) 

fppv(l, 1,0,0) 


0 

0 

0 

0 

0 

0 

0 

(-ssty(ky 


L  ,0,0) j/rdj (kv, jv) 
fppy(l, 1,0,1)  =  0 
fppy(l,l,0,2)  =  0 
fppy(l,l,0,3)  =  0 
fppy(l, 1,1,0)  =  0 
fppy(l, 1,1,1)  =  0 
fppv(l,l,l,2)  =  0 
fppy(i» i»i,3)  =  o 

fppv(l, 1,2,0)  =  0 
fppv(l, 1,2,1)  =  0 
fppy(l,l,2,2)  =  0 
fppv(l,l,2,3)  =  0 
fppy(l, 1,3,0)  =  0 
fppv(l, 1,3,1)  =  0 
fppy (1 ,1,3,2)  =  0 
fppy(i ,1 ,3,3)  =  0 
fppy (1,2, 0,0)  =  (-8ty(ky 
l  ,0,0))/rdj (ky, jy) 
fppy(l,2,0,l)  =  0 
fppy(l,2,0,2)  =  0 

fppy (1,2, 0,3)  =  0 
fppy(l,2,l,0)  =  0 

fppy(i,2,i,i)  =  o 

fppy(l,2,l,2)  =  0 


,  jy , 1) *txyddy (1,0,0) -«tx (ky , jy , 1) *txxddy (1 


, j y , 1 ) * txy ddy (2 , 0 , 0) -»tx (ky , j y , 1 ) * txxddy (2 


fppy(l,2,l,3)  =  0 
fppv(l,2,2,0)  =  0 
fppv(l, 2,2,1)  =  0 
fppy(l,2,2,2)  =  0 
fppy(l ,2,2,3)  =  0 
fppv(l,2,3,0)  =  0 
fppy(l,2,3,l)  =  0 
fppv(l,2,3,2)  =  0 
fppv(l,2,3,3)  =  0 
fppy(l,3,0,0)  =  0 
fppy(l,3,0,l)  =  0 
fppv(l,3,0,2)  =  0 
fppy(l,3,0,3)  =  0 
fppy(l,3,l,0)  =  0 
fppv(l,3,l,l)  =  0 
fPPv(l,3,l,2)  =  0 
fpPv(l,3,l,3)  =  0 
fppv(l ,3,2,0)  =  0 
fppv(l,3,2, 1^  =  0 
fPPy(l,3,2,2)  =  0 
fPPy(l,3,2,3)  =  0 
fppv(l,3,3,0)  =  0 
fppv(l, 3,3,1)  =  0 
fppv(l,3,3,2)  =  0 
fppv(l ,3,3,3)  =  0 

fppv(2, 0,0,0)  =  (-*ty(kv,  jy,l)*tyyd(lT(0f0,0)-atx(kT,  jy,l)*txyddy(0 
1  ,0,0))/rdj(ky,jy) 

fppy(2, 0,0,1)  =  (-*ty(ky, jy,l)*tyyddy(0,0,l)-*tx(ky, jy,l)*txyddy(0 
1  ,0,l))/rdj(ky,jy) 

fppy (2,0,0,2)  =  (-aty(ky, jy,l)*tyyddy(0,0,2)-xtx(ky, jy,l)*txyddy(0 
1  ,0,2))/rdj (ky, jy) 

fppy(2,0,0,3)  =  0 

fppy(2, 0,1,0)  =  (-Bty(kv, jv,l)*tyyddy(0,l,0)-«tx(ky, jy,l)*txyddy(0 
1  ,lfO))/rdj(ky,jy) 
fppy(2, 0,1,1)  =  0 

fppy(2,0,l,2)  =  0 

fppy(2, 0,1,3)  =  0 

fppv(2, 0,2,0)  =  (-aty(ky, jy,l)*tyyddy(0,2,0)-*tx(ky, jy,l)*txyddy(0 

1  »2,0))/rdj (ky, jy) 

fppy(2, 0,2,1)  =  0 

fppy(2, 0,2,2)  =  0 

fppy(2,0,2,3)  =  0 

fppy(2, 0,3,0)  =  0 

fppy(2, 0,3,1)  =  0 

fppy (2, 0,3, 2)  =  0 

fppy(2,0,3,3)  =  0 

fppy(2, 1,0,0)  =  (-ety(ky, jy,l)*tyyddy(l,0,0)-*tx(ky, jy,l)*txyddy(l 

1  ,0,0))/rdj(ky, jy) 

fppy(2, 1,0,1)  =  0 
fppv(2, 1,0,2)  =  0 
fppy (2, 1 ,0,3)  =  0 
fppy(2, 1,1,0)  =  0 
fppy(2, 1,1,1)  =  0 
fppy (2, 1,1, 2)  =  0 
fppy(2, 1,1,3)  =  0 
fppy (2, 1,2,0)  =  0 
fppy(2, 1,2,1)  =  0 
fppy(2, 1,2,2)  =  0 
fppy (2, 1 ,2,3)  =  0 


fppv(2, 1,3,0)  =  0 
fppy(2, 1,3,1)  =  0 
fppv(2,l,3,2)  =  0 
fppv (2, 1,3, 3)  =  0 

fppv (2, 2, 0,0)  =  (-Bty(kv,jv,l)*tyyddv(2,0,0) 
,0,0))/rdj(kv,jy) 
fppy(2,2,0,l)  =  0 
fppy(2,2,0,2)  =  0 
fppy (2, 2, 0,3)  =  0 

fppy (2, 2, 1,0)  =  0 

fppy (2, 2, 1,1)  =  0 
fppy(2,2,l,2)  =  0 
fppv(2,2,l,3)  =  0 
fppy(2,2,2,0)  =  0 
fppy(2,2,2,l)  =  0 
fppy (2, 2, 2, 2)  =  0 
fppv (2, 2, 2, 3)  =  0 
fppv(2,2,3,0)  =  0 
fppy (2, 2, 3,1)  =  0 
fppy (2, 2, 3, 2)  =  0 
fppy (2, 2, 3, 3)  =  0 
fppy(2,3,0,0)  =  0 
fppy(2,3,o, 1)  =  0 
fppy(2,3,0,2)  =  0 
fppy(2,3,0,3)  =  0 
fppv(2,3,l,0)  =  0 
fppy (2, 3, 1,1)  =  0 
fppy(2,3,l,2)  =  0 
fppy (2, 3, 1,3)  =  0 
fppy(2,3,2,0)  =  0 
fppy(2,3,2,l)  =  0 
fppv (2, 3,2,2)  =  0 
fppv(2,3,2,3)  =  0 
fppv(2,3,3,0)  =  0 
fppv (2, 3, 3,1)  =  0 
fppv (2, 3, 3, 2)  =  0 
fppv(2,3,3,3)  =  0 

fppv(3, 0,0,0)  =  (-byddv(0,0,0)*Bty(kv,jv,l) 

1  ,l))/rdj(kv, jv) 

fppy(3, 0,0,1)  =  (-byddv (0,0,1) *sty (kv , jv , 1) 
l  ,l))/rdj (kv, jv) 

fppy (3, 0,0, 2)  =  (-byddv (0,0,2) **ty (kv , j  v , 1) 
1  ,l))/rdj (kv, jv) 

fppv (3, 0,0, 3)  =  (-byddv(0,0,3)**ty(kv, jv,l) 
1  , l))/rdj (kv, jv) 

fppy(3, 0,1,0)  =  (-byddv (0,l,0)**ty(kv, jv,l) 
1  »l))/rdj(kv,jy) 

fppy(3, 0,1,1)  =  (-byddv (0, 1 , 1) **ty(kv, jv, 1) 
1  .l))/rdj(kv,jv) 

fppy(3,0,l,2)  =  (-byddv (0,1,2) **ty (kv , jv , 1) 
1  ,l))/rdj(kv, jv) 
fppy(3,0,l,3)  =  0 

fppv(3, 0,2,0)  =  (-byddv  (0,2,0) ♦sty (kv,jv,l) 
1  ,l))/rdj(ky,jv) 

fppy(3, 0,2,1)  =  (-byddv (0,2,1) *ity (kv , jv , 1) 
1  il))/rdj(br,jv) 

fppy(3,0,2,2)  =  (-byddv (0,2,2) **ty (kv , jv , 1) 
1  ,l))/rdj (kv, jv) 
fppv(3,0,2,3)  =  0 


-■tx (kv , jv , 1) *txyddv (2 


-bxddv (0 , 0 , 0) *»tx (kv , j v 
-bxddv  (0 , 0 , 1)  *  » tx  (kv ,  j  v 
-bxddv  (0 , 0 , 2)  *  *  tx  (kv ,  j  v 
-bxddv (0 , 0 , 3) * »tx (kv , j v 
-bxddv (0, 1,0) **tx(kv,jv 
-bxddv (0,1,1) **tx (kv , jv 
-bxddv  (0 , 1 , 2)  *  *  tx  (kv ,  j  v 


-bxddv  (0 , 2 , 0)  *  s  tx  (kv ,  j  v 
-bxddv (0 , 2 , 1 ) **tx (kv , j v 
-bxddv (0 , 2 , 2) **tx (kv , 3 v 
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fppv(3, 0,3,0)  =  (-byddv(0,3,0)*sty(kv,jv,l) 
1  ,l))/rdj(kv,jv) 
fppv(3, 0,3,1)  =  0 
fppv(3,0,3,2)  =  0 
fppv(3,0,3,3)  =  0 

fppv(3, 1,0,0)  =  (-byddv (1,0,0) *sty (kv, jv,l) 
1  ,l))/rdj(kv,jv) 

fppv(3, 1,0,1)  =  (-byddv (1,0,1) *zty (kv , jv , 1) 
1  ,l))/rdj (kv, jv) 

fppv(3,l,0,2)  =  (-byddv ( 1 , 0 , 2)  *  sty  (kv ,  j  v ,  1) 
1  ,l))/rdj(kv,jv) 
fppv(3,l,C,3)  =  0 

fppv(3, 1,1,0)  =  (-byddv (1,1,0) *sty (kv , j v , 1) 
1  ,l))/rdj(kv,jv) 
fppv(3, 1,1,1)  =  0 
fppv(3, 1,1,2)  =  0 
fppv(3,l,l,3)  =  0 

fppv(3, 1,2,0)  =  (-byddv (1,2,0) *zty (kv , j v , 1) 
1  , l))/rdj (kv, jv) 

fppv(3, 1,2,1)  =  0 
fppv(3,l,2,2)  =  0 
fppv (3, 1,2,3)  =  0 
fppv(3, 1,3,0)  =  0 
fppv(3, 1,3,1)  =  0 
fppv(3,l,3,2)  =  0 
fppv(3,l,3,3)  =  0 

fppv(3,2,0,0)  =  (-byddv(2,0,0)*aty(kv, jv,l) 
1  ,l))/rdj(kv,jv) 


-bxddv (0 , 3 , 0) * *tx (kv , j v 


■bxddv (1,0,0) *stx (kv , j v 
-bxddv (l,0,l)*atx(kv, jv 


-bxddv(l,0,2)**tx(kv, jv 


-bxddv (1,1,0) **tx (kv , j v 


-bxddv ( 1 , 2 , 0) * x tx (kv , j v 


-bxddv (2,0,0) **tx (kv , j  v 


fppv (3,2,0, 1)  =  (-byddv (2,0,1) *zty (kv , j  v , 1) 
1  ,l))/rdj(kv,jv) 

fppv(3,2,0,2)  =  (-byddv(2,0,2)**ty(kv, jv,l) 
1  ,l))/rdj(kv,jv) 
fppv (3,2,0,3)  =  0 

fppv(3,2,l,0)  =  (-byddv(2,l,0)*zty(kv, jv,l) 
1  , l))/rdj (kv, jv) 

fppv(3, 2,1,1)  =  0 
fppv(3,2,l,2)  =  0 
fppv (3, 2, 1,3)  =  0 

fppv (3, 2, 2,0)  =  (-byddv (2,2,0) *«ty (kv , j v , 1) 
1  ,l))/rdj(kv,jv) 
fppv(3,2,2,l)  =  0 
fppv (3, 2, 2, 2)  =  0 
fppv(3,2,2,3)  =  0 
fppv(3,2,3,0)  =  0 
fPPv(3,2,3, 1)  =  0 
fppv (3, 2, 3, 2)  =  0 
fppv (3, 2, 3 ,3)  =  0 

fppv (3, 3, 0,0)  =  (-byddv (3,0,0)*  sty (kv , j  v , 1) 
1  ,l))/rdj(kv,jv) 


-bxddv (2,0,1) *stx (kv , j  v 


-bxddv  (2 , 0, 2)  *stx  (kv ,  j  v 


bxddv (2,1,0)*  stx (kv , j  v 


-bxddv (2,2,0) *stx (kv , j v 


-bxddv (3,0,0) *stx (kv , j  v 


fppv(3,3,0,l) 
fpPv(3,3,0,2) 
fppv(3,3,0,3) 
fppv(3,3, 1,0) 
fppv(3,3, 1 , 1) 
fppv(3,3,l,2) 
fppv (3, 3, 1,3) 
fppv(3,3,2,0) 
fppv(3,3,2,l) 
fppv (3, 3, 2, 2) 
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1 
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Ml 

O 

m 


iwa 

O 


m 


i 


a 


fppr(3 
fppv(3 
fppv(3 
fppv(3 
fppv(3 
fpup (0 
fpup (0 
fpup(0 
fpup (0 
fpup (0 
fpup(0 
fpup(0 
fpup (0 
fpup(0 
fpup (0 
fpup (0 
fpup (0 
fpup (0 
fpup (0 
fpup(0 
fpup (0 
fpup (0 
fpup(0 
fpup (0 
fpup(0 
fpup(0 
fpup(0 
fpup(0 
fpup(0 
fpup(0 
fpup(0 
fpup(0 
fpup(0 
fpup (0 
fpup(0 
fpup (0 
fpup(0 
fpup (0 
fpup (0 
fpup (0 
fpup (0 
fpup (0 
fpup (0 
fpup(0 
fpup (0 
fpup (0 
fpup (0 
fpup(0 
fpup(0 
fpup(0 
fpup (0 
fpup(0 
fpup(0 
fpup(0 
fpup(0 
fpup (0 
fpup(0 
fpup (0 
fpup (0 


,3,2,3) 

,3,3,0) 

,3,3,1) 

,3,3,2) 

,3,3,3) 

,0,0,0) 

,0,0,1) 

,0,0,2) 

,0,0,3) 

,0,1,0) 

,0,1,1) 

,0,1,2) 

,0,1,3) 

,0,2,0) 

,0,2,1) 

,0,2,2) 

,0,2,3) 

,0,3,0) 

,0,3,1) 

,0,3,2) 

,0,3,3) 

,1,0,0) 

,1,0,1) 

,1,0,2) 

,1,0,3) 

,1,1,0) 

,1,1,1) 

,1,1,2) 

,1,1,3) 

,1,2,0) 

,1,2,1) 

,1,2,2) 

,1,2,3) 

,1,3,0) 

,1,3,1) 

,1,3,2) 

,1,3,3) 

,2,0,0) 

,2,0,1) 

,2,0,2) 

,2,0,3) 

,2,1,0) 

,2,1,1) 

,2,1,2) 

,2,1,3) 

,2,2,0) 

,2,2,1) 

,2,2,2) 

,2,2,3) 

,2,3,0) 

,2,3,1) 

,2,3,2) 

,2,3,3) 

,3,0,0) 

,3,0,1) 

,3,0,2) 

,3,0,3) 

,3,1,0) 

,3,1,1) 
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i  j  tWi  i 


fpup(0 
fpup(0 
fpup (0 
fpup(0 
fpup (0 
fpup (0 
fpup (0 
fpup (0 
fpup(0 
fpup (0 
fpup(l 

1  ,0,< 

fpup(l 

i  ,o,: 

fpup(l 

i  ,o,: 

fpup(l 

fpup(l 

1  ,1,< 
fpup(l 
fpup(l 
fpup(l 
fpup(l 

1  ,2,( 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 

1  ,0,< 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 
fpup(l 

1  ,0,< 
fpup(l 
fpup(l 
fpup(l; 
fpup(l 
fpup(l; 
fpup(l; 
fpup(l 
f pup(l 
fpup(l 


0))/rdj (kv,jv) 
,0,0,1)  =  (-*ty(lcr 

1) )/rdj(kv,jv) 
,0,0,2)  =  (-zty(kv 

2) )/rdj (kv.jv) 
,0,0,3)  =  0 
,0,1,0)  =  (-zty(kv 
0))/rdj (kv.jv) 
,0,1,1)  =  0 
,0,1,2)  =  0 
,0,1,3)  =  0 
,0,2,0)  =  (-zty (kv 
0))/rdj (kv.jv) 


3.1.2) 

3.1.3) 
3,2,0) 

3.2.1) 

3.2.2) 

3.2.3) 
3,3,0) 

3.3.1) 

3.3.2) 

3.3.3) 

0,0,0) 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

(-zty(kv 


,  j  v , 1) *txydud (0,0,0) -*tx (kv, j v, 1) * txxdud (0 


» 3 T » 1) *' fcxydud (0 , 0 , 1) -stx (kv , j v , 1 ) * txxdud (0 


,  jv»l) *txydud (0,0,2) -Btx(kv, jv,l)*txxdud(0 


,  j  v , 1) * txydud (0,1,0) -atx (kv , j  v , 1) * txxdud (0 


,  j  v , 1) * txydud (0,2,0) -xtx (kv , j v , 1) * txxdud (0 


0,2,1) 

0,2,2) 

0,2,3) 

0,3,0) 

0,3,1) 

0,3,2) 

0,3,3) 

1,0,0) 


0 

0 

0 

0 

0 

0 

0 

(-zty(kv 


0))/rdj (kv, jv) 


,  j  v , 1) * txydud (1,0,0) -xtx (kv , j v , 1) * txxdud (1 


1,0,1) 

1,0,2) 

1,0,3) 

1,1,0) 

1,1,1) 

1,1,2) 

1.1.3) 
1,2,0) 
1,2,1) 
1,2,2) 

1.2.3) 
1,3,0) 

1.3.1) 

1.3.2) 

1.3.3) 

2,0,0) 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

(-*ty(kv 


0))/rdj(kv,jv) 


,  jv,l)*txydud (2,0,0)-*tx(kv, jv,l)*txxdud(2 


2,0,1) 

2,0,2) 

2,0,3) 

2,1,0) 

2,1,1) 

2,1,2) 

2,1,3) 

2,2,0) 

2,2,1) 
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a 


a 


a 


fpup(l,2,2,2)  =  0 
fpup(l,2,2,3)  =  0 
fpup(l,2,3,0)  =  0 
fpup(l,2,3,l)  =  0 
fpup(l,2,3,2)  =  0 
fpup(l,2,3,3)  =  0 
fpup(l ,3,0,0)  =  0 
fpup(l,3,0,l)  =  0 
fpup(l,3,0,2)  =  0 
fpup(l,3,0,3)  =  0 
fpup(l,3,l,0)  =  0 
f pup (1,3, 1,1)  =  0 
fpup(l,3,l,2)  =  0 
fpup(l,3,l,3)  =  0 
fpup(l,3,2,0)  =  0 
fpup(l,3,2,l)  =  0 
fpup(l,3,2,2)  =  0 
fpup(l ,3,2,3)  =  0 
fpup(l,3,3,0)  =  0 
fpup(l,3,3,l)  =  0 
fpup(l ,3,3,2)  =  0 
fpup(l,3,3,3)  =  0 
f pup (2, 0,0,0)  =  (-zty (kv , 
1  ,0,0))/rdj (kv, jv) 

fpup(2, 0,0,1)  =  (-zty(kv, 
1  ,0,l))/rdj (kv, jv) 

f pup (2, 0,0, 2)  =  (-zty(ky, 
1  ,0,2))/rdj (kv, jv) 

fpup(2,0,0,3)  =  0 
f pup (2, 0,1,0,  =  (-zty(kv, 
1  ,l,0))/rdj(kv,jv) 

fpup(2, 0,1,1)  =  0 
f pup (2, 0,1,2)  =  0 
f pup (2, 0,1, 3)  =  0 
f pup (2, 0,2,0)  =  (-zty (kv, 
1  ;2,0))/rdj (kv, jv) 


j  v , 1) ttyydud (0, 0 , 0) -ztx (kv , j v , 1) *txydud (0 
j  v ,  1)  *  tyydud  (0 , 0 , 1)  -ztx  (kv ,  j  v ,  1)  *txydud  (0 
jv, 1) *tyydud(0,0, 2) -ztx(kv, j v, 1) *txydud(0 


j v , 1) ♦ tyydud (0, 1,0) -ztx(kv, jv, 1) *txydud(0 


j  v , 1) * tyydud (0,2,0) -ztx (kv , j  v , 1) *txydud (0 


fpup(2, 0,2,1) 
fpup(2,0,2,2) 
fpup(2,0,2,3) 
fpup(2, 0,3,0) 
fpup(2, 0,3,1) 
f pup (2, 0,3, 2) 
fpup(2,0,3,3) 
fpup(2, 1,0,0) 


1  ,0,0) j/rdj (kv, jv) 

fpup(2, 1,0,1)  =  0 
fpup(2, 1,0,2)  =  0 
f pup (2 , 1,0,3)  =  0 
fpup(2, 1,1,0)  =  0 
fpup(2, 1,1,1)  =  0 
fpup(2,l,l,2)  =  0 
fpup(2,l,l,3)  =  0 
fpup(2, 1 ,2,0)  =  0 
fpup(2, 1,2,1)  =  0 
fpup(2, 1,2,2)  =  0 
f pup (2, 1,2, 3)  =  0 
fpup(2, 1,3,0)  =  0 
fpup(2, 1,3,1)  =  0 
fpup(2,l,3,2)  =  0 


0 

0 

0 

0 

0 

0 

0 

(-zty (kv , 


jv, 1) *tyydud(l ,0,0) -ztx (kv , jr, 1) *txydud(l 


(1 


fpup(2,l,3,3)  =  0 

fpup  (2, 2, 0,0)  =  (-sty(ky, jv,l)*tyydud(2,0,0) 
1  ,0,0))/rdj(ky,jy) 

fpup(2,2,0,l)  =  0 
fpup(2,2,0,2)  =  0 
fpup(2,2,0,3)  =  0 
fpup(2,2,l,0)  =  0 
fpup(2,2,l,l)  =  0 
fpup(2,2,l,2)  =  0 
fpup (2, 2, 1,3)  =  0 
fpup(2,2,2,0)  =  0 
fpup(2,2,2,l)  =  0 
fpup(2,2,2,2)  =  0 
fpup (2, 2, 2, 3)  =  0 
fpup (2, 2, 3,0)  =  0 
fpup(2,2,3,l)  =  0 
fpup (2, 2, 3, 2)  =  0 
fpup (2, 2,3,3)  =  0 
fpup (2, 3,0,0)  =  0 
fpup(2,3,0,l)  =  0 
fpup(2,3,0,2)  =  0 
fpup(2,3,0,3)  =  0 
fpup (2, 3, 1,0)  =  0 
fpup (2, 3, 1,1)  =  0 
fpup(2,3,l,2)  =  0 
fpup (2, 3, 1,3)  =  0 
fpup (2, 3, 2,0)  =  0 
fpup (2, 3, 2,1)  =  0 
fpup(2,3,2,2)  =  0 
fpup(2,3,2,3)  =  0 
fpup(2,3,3,0)  =  0 
fpup(2,3,3,l)  =  0 
fpup (2, 3, 3, 2)  =  0 
fpup(2,3,3,3)  =  0 

f pup(3, 0,0,0)  =  (-b7dud(0,0,0)*ety(kv, jv,l) 

1  ,l))/rdj(kv,jv) 

fpup(3, 0,0,1)  =  (-bydud(0,0,l)*»ty(kv, jv,l) 
1  ,l))/rdj(kv,jr) 

fpup(3,0,0,2)  =  (-bydud(0,0,2)*aty(kv,  jy,l) 
1  ,l))/rdj(kv,jr) 

fpup (3, 0,0, 3)  =  (-bydud(0,0,3)*8ty(kr, jr,l) 
1  ,l))/rdj(ky,jy) 

fpup(3, 0,1,0)  =  (-bydud (0,1,0)* sty (ky, jy,l) 
1  ,l))/rdj(ky,jy) 

fpup(3, 0,1,1)  =  (-bydud(0,l,l)*sty(ky,jy,l) 

1  .l))/rdj(ky,jy) 

fpup(3, 0,1,2)  =  (-bydud (0,1,2) *sty (ky , jy , 1) 
1  ,l))/rdj(ky,jv) 
fpup(3, 0,1,3)  =  0 

fpup(3, 0,2,0)  =  (-bydud (0,2,0)* sty (ky, j»,l) 
1  ,l))/rdj(ky,jy) 

fpup(3, 0,2,1)  =  (-bydud (0,2,1) *sty (ky , jy , 1) 
1  , 1) ) /rdj  (kv,  jyr) 

fpup(3,0,2,2)  =  (-bydud (0,2,2) *sty (ky , jy , 1) 
1  ,l))/rdj(kv,jy) 
fpup(3,0,2,3)  =  0 

fpup(3, 0,3,0)  =  (-bydud(0,3,0)*sty(ky, jy,l) 
1  , l))/rdj (ky, jv) 

fpup(3, 0,3,1)  =  0 
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-stx(ky, jy, 1) *txydud(2 


-bxdud (0, 0 , 0) * stx (ky , j y 
-bxdud (0 , 0 , 1) *stx (ky , j y 
-bxdud (0 , 0 , 2) *stx (ky , j y 
-bxdud (0 , 0 , 3) * stx (ky , j y 
-bxdud (0, 1 , 0) *stx (ky , j y 
-bxdud (0 , 1 , 1) * stx (ky , j y 
- bxdud (0 , 1 , 2) * stx (kv , j y 

-bxdud (0 , 2 , 0) * stx (ky , j y 
-bxdud (0,2, 1) *stx(kv , jy 
-bxdud(0,2,2)*stx(ky, jy 

-bxdud (0,3,0) *stx (ky , jy 


m 

s*>r 

■W 


fpup(3,0,3,2)  =  0 
fpup(3,0,3,3)  =  0 

f pup (3, 1,0,0)  =  (-bydud (l,0,0)*zty(kv, jv,l) -bxdud (1,0,0) *ztx(kv, jv 
1  ,l))/rdj(kv,jv) 

f pup (3, 1,0,1)  =  (-bydud(l,0,l)*zty(kv, jv,l)-bxdud(l,0,l)*ztx(kv, jv 
1  ,l))/rdj (kv, jv) 

f pup (3 , 1 , 0 , 2)  =  (-bydud(l , 0 , 2) *zty (kv , j  v , 1) -bxdud (1 ,0 , 2) *ztx (kv , j v 
1  ,l))/rdj (kv, jv) 

fpup(3, 1,0,3)  =  0 

f  pup (3 , 1 , 1 , 0)  =  (-bydud (1 ,  1 , 0) *zty (kv , j  v , 1) -bxdud (1,1,0) *ztx (kv , j  v 
1  ,l))/rdj (kv, jv) 

fpup(3, 1,1,1)  =  0 
f pup (3, 1,1, 2)  =  0 
fpup (3, 1,1,3)  =  0 

f  pup (3 , 1 , 2 , 0)  =  (-bydud (1 , 2 , 0) *  zty (kv , j  v , 1 ) -bxdud (1 ,2,0) *ztx (kv , j  v 
1  *l))/rdj (kv, jv) 
fpup(3, 1,2,1)  =  0 

fpup(3,l,2,2)  =  0 

fpup(3, 1,2,3)  =  0 

fpup(3, 1,3,0)  =  0 

fpup(3, 1,3,1)  =  0 

fpup(3, 1,3,2)  =  0 

fpup (3, 1,3,3)  =  0 

fpup (3 , 2 , 0 , 0)  =  (-bydud (2,0,0) *zty (kv , j  v , 1) -bxdud (2 , 0 , 0) *ztx (kv , j  v 

1  ,l))/rdj (kv, jv) 

fpup (3, 2, 0,1)  =  (-bydud(2,0,l)*zty(kv, jv,l) -bxdud (2,0,1) *ztx(kv, jv 
1  ,l))/rdj(kv, jv) 

f  pup (3 , 2 , 0 , 2)  =  (-bydud (2 , 0 , 2)  *  z  ty  (kv ,  j  v ,  1) -bxdud (2 , 0 , 2)  *  z  tx  (kv ,  j  v 
1  ,l))/rdj(kv,jv) 
fpup (3, 2, 0,3)  =  0 

fpup (3, 2, 1,0)  =  (~bydud(2,l,0)*zty(kv, jv,l) -bxdud (2,1,0) *ztx(kv, jv 
1  ,l))/rdj(kv,jv) 
fpup(3,2,l,l)  =  0 
fpup (3, 2, 1,2)  =  0 
fpup(3,2,l,3)  =  0 

fpup (3 , 2 , 2 , 0)  =  (-bydud (2,2,0)*  zty (kv , j  v , 1) -bxdud (2,2,0) *ztx (kv , j  v 
1  >l))/rdj (kv, jv) 
fpup(3,2,2,l)  =  0 
fpup(3,2,2,2)  =  0 
fpup(3,2,2,3)  =  0 
fpup(3,2,3,0)  =  0 
fpup (3, 2, 3,1)  =  0 
fpup'(3, 2,3,2)  =  0 
fpup(3,2,3,3)  =  0 

fpup(3,3,0,0)  =  (-bydud(3,0,0) *zty(kv, jv,l) -bxdud (3,0,0) *ztx(kv, jv 
1  >l))/rdj(kv,jv) 
fpup(3,3,0,l)  =  0 
fpup(3,3,0,2)  =  0 
fpup(3,3,0,3)  =  0 
fpup(3,3,l,0)  =  0 
fpup (3, 3, 1,1)  =  0 
fpup (3, 3, 1,2)  =  0 
fpup (3, 3, 1,3)  =  0 
fpup(3,3,2,0)  =  0 
fpup(3,3,2,l)  =  0 
fpup (3, 3, 2, 2)  =  0 
fpup(3, 3,2,3)  =  0 
fpup(3,3,3,0)  =  0 
fpup(3,3,3, 1)  =  0 


a 

m 

id 


i 


( 

$ia 

m 


fpup (3, 3, 3 
f pup (3 ,3, 3 
fpvp (0,0,0 
fpvp(0,0,0 
fpvp (0,0,0 
fpvp (0,0,0 
fpvp(0,0, 1 
fpvp(0,0,l 
fpvp(0,0,l 
fpvp(0,0,l 
fpvp(0,0,2 
fpvp(0,0,2 
fpvp (0,0,2 
fpvp (0,0,2 
fpvp (0,0, 3 
fpvp(0,0,3 
fpvp(0,0,3 
fpvp (0,0,3 
fpvp (0,1,0 
fpvp (0,1,0 
fpvp(0,l,0 
fpvp(0, 1 ,0 
fpvp (0,1,1 
fpvp (0,1,1 
f PVP (0,1 , 1 
fpvp(0, 1 , 1 
fpvp(0, 1 ,2 
fpvp (0,1,2 
fpvp (0,1,2 
fpvp (0,1, 2 
fpvp (0,1,3 
fpvp (0,1,3 
fpvp (0, 1,3 
fpvp(0,l,3 
fpvp (0,2,0 
fpvp (0,2,0 

fpvp (0,2,0 
fpvp (0,2,0 
fpvp (0,2,1 
fpvp(0,2,l 
fpvp (0,2,1 
fpvp (0,2,1 
fpvp(0,2,2 
fpvp (0,2, 2 
fpvp (0,2,2 
fpvP (0,2,2 
fpvp (0,2,3 
fpvp (0,2,3 
fpvp (0,2,3 
fpvp (0,2,3 
fpvp(0,3,0 
fpvp(0,3,0 
fpvp (0,3,0 
fpvp (0,3,0 
fpvp (0,3,1 
fpvp (0,3,1 
fpvp(0,3,l 
fpvp(0, 3, 1 
fpvp(0,3,2 


2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 

1)  =  o 

2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 
3)  =  0 
0)  =  0 
1)  =  0 
2)  =  0 

=  0 
0)  =  0 


fpyp(0,3,2,l)  =  0 
fpyp(0,3,2,2)  =  0 
fpyp(0,3,2,3)  =  0 
fpvp(0,3,3,0)  =  0 
fpyp(0,3,3,l)  =  0 
fpyp(0,3,3,2)  =  0 
fpyp(0,3,3,3)  =  0 
fpyp(l, 0,0,0)  =  (-sty(ky, 
1  ,0,0))/rdj(ky, jy) 

fpyp(l, 0,0,1)  =  (-sty(ky, 
1  ,0,l))/rdj(ky,jv) 

fpyp(l ,0,0,2)  =  (-sty(kv, 
1  ,0,2))/rdj(kv,jy) 

fpvp(l,0,0,3)  =  0 
fpyp(l, 0,1,0)  =  (-ety(ky, 
1  ,l,0))/rdj(kv,jv) 

fpyp(l, 0,1,1)  =  0 
fpyp(l,0,l,2)  =  0 
fpyp(l,0,l,3)  =  0 
fpyp(l ,0,2,0)  =  (-«ty(ky, 
1  ,2,0))/rdj(ky,jv) 


jy,l)*txydyd(0,0,0) 
jy , 1) *txydyd(0,0, 1) 
jy,l)*txydyd(0,0,2) 


■  stx (kv , j y , 1 ) * txxdyd (0 
-•tx  (ky ,  jy ,  1)  *  txxdyd  (0 
-»tx (ky , jy , 1) *fcxxdyd(0 


j y , 1 ) * txy dvd (0 , 1 , 0) - x tx (ky , j v , 1 ) * txxdvd (0 


j y , 1 ) *txydyd (0 , 2 , 0) -*tx (ky , j y , 1 )* txxdyd (0 


fpyp(l, 0,2,1) 
fpyp(i ,0,2,2) 
fpyp(l,0,2,3) 
fpyp(l,0,3,0) 
fpyp(l, 0,3,1) 
fpyp(l,0,3,2) 
fpvp(l ,0,3,3) 
fpyp(l, 1,0,0) 


,0,0))/rdj (kv, jy) 


0 

0 

0 

0 

0 

0 

0 

(-*ty(kv, 


j y , 1) * txydvd (1 , 0 , 0) -stx (ky , j y , 1) *txxdyd (1 


fpyp(l,l,0,l) 
fpyp(l,l,0,2) 
fpyp(l,l,0,3) 
fpyp(l,l,l.,0) 
fpyp(l, 1,1,1) 
fpyp(l,l,l,2) 
fpyp(l,l,l,3) 
fpyp(l, 1,2,0) 
fpyp(l, 1,2,1) 
fpyp(l,l,2,2) 
fpyp(l,l,2,3) 
fpyp(l, 1,3,0) 
fpyp(i, 1,3,1) 
fpyp(l,l,3,2) 
fpyp(l,l,3,3) 
fpyp(l,2,0,0) 


L  ,0,0))/rdj (ky, jy) 
fpyp(l,2,0,l)  =  0 
fpvp(l,2,0,2)  =  0 

fpyp(l,2,0,3)  =  0 
ipvp(1.2,l,0)  =  0 
fpyp(l,2,l,l)  =  0 
fpyp(l,2,l,2)  =  0 
fpyp(l,2,l,3)  =  0 
fpyp(i ,2,2,0)  =  0 
fpyp(l,2,2,l)  =  0 
fpyp(l,2,2,2)  =  0 
fpyp(l,2,2,3)  =  0 
fpyp(l,2,3,0)  =  0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

(-zty(ky, 


j y , 1 ) * txydyd (2 , 0 , 0) - sfcx (ky , j y , 1 ) *txxdyd (2 


fprp(l,2,3,l)  =  0 
fpyp(l,2,3,2)  =  0 
fpyp(l,2,3,3)  =  0 
fpvp(l, 3,0,0)  =  0 
fpvp(l,3,0,l)  =  0 
fpvp(l,3,0,2)  =  0 
fpYp(l,3,0,3)  =  0 
fpvp(l,3,l,0)  =  0 
fpvp(l,3,l,l)  =  0 
fpvp(l,3,l,2)  =  0 
fpvp(l,3,l,3)  =  0 
fpyp(l,3,2,0)  =  0 
fpYp(l,3,2,l)  =  0 
fpvp(l,3,2,2)  =  0 
fPvp(l,3,2,3)  =  0 
fpvp(l,3,3,0)  =  0 
fpyp(l,3,3,l)  =  0 
fpyp(l,3,3,2)  =  0 
fpyp(l,3,3,3)  =  0 

fpyp(2, 0,0,0)  =  (-ety(ky, jy,l) *tyydyd (0,0,0) -*tx(ky,jy,l)*txydyd(0 
1  ,0,0))/rdj(kv,jy) 

ipyp(2,0,0,l)  =  (-aty(kv, jy,l)*tyydyd (0,0,1) -*tx(ky,jy,l)*txydyd(0 
1  ,0,l))/rdj(kv,jy) 

fpyp(2,0,0,2)  =  (-aty(ky, jy,l)*tyydyd(0,0,2)-*tx(ky,jy,l)*txydyd(0 
1  »0,2))/rdj(ky, jy) 

fpyp(2,0,0,3)  =  0 

fpyp(2, 0,1,0)  =  (-*ty(ky, jv,l)*tyydyd(0,l,0)-*tx(kr, jy,l)*txydvd(0 
1  >l»0))/rdj  (Icy  ,  jy) 

fpyp(2, 0,1,1)  =  0 
fpyp(2,0,l,2)  =  0 
fpyp(2, 0,1,3)  =  0 

fpyp(2, 0,2,0)  =  (-*ty(ky, jy,l)*tyydyd(0,2,0)-xtx(ky, jy,l)*txydvd(0 
1  ,2,0))/rdj(ky,jy) 

fpyp(2, 0,2,1)  =  0 
fpvp(2,0,2,2)  =  0 
fpyp(2,0,2,3)  =  0 
£pyp(2, 0,3,0)  =  0 
fpyp(2, 0,3,1)  =  0 
fpvp(2,0,3,2)  =  0 
fpyp(2,0,3,3)  =  0 

fpyp(2, 1,0,0)  =  (-xty(ky, jy,l)*tyydyd(l,0,0)-*tat(kr, jy,l)ytxydyd(l 
1  »0,0))/rdj (ky, jy) 

fpyp(2, 1,0,1)  =  0 
fpyp(2,l,0,2)  =  0 
fpyp(2,l,0,3)  =  0 
fpyp(2, 1,1,0)  =  0 
fpyp(2, 1,1,1)  =  0 
fpyp(2,l,l,2)  =  0 
fpyp(2,l,l,3)  =  0 
fpyp(2, 1,2,0)  =  0 
fpyp(2, 1,2,1)  =  0 
fpyp(2, 1,2,2)  =  0 
fpyp(2,l,2,3)  =  0 
fpyp(2, 1,3,0)  =  0 
ipyp(2, 1,3,1)  =  0 
fpyp (2, 1,3, 2)  =  0 
fpyp(2,i,3,3)  =  0 

fpyp (2, 2, 0,0)  =  (-sty(ky, jy,l)*tyydyd(2,0,0)-*tx(ky, jy,l)*txydyd(2 
1  »0,0))/rdj (ky, jy) 


fpvp(2,2,0,l)  =  0 
fpvp(2,2,0,2)  =  0 
fpvp(2,2 ,0,3)  =  0 
fpvp(2,2,l,0)  =  0 
fpvp(2,2,l,l)  =  0 
fpvp(2,2,l,2)  =  0 
fpvp(2,2, 1,3)  =  0 
fpvp(2,2,2,0)  =  0 
fpvp(2, 2,2,1)  =  0 
fpvp(2,2,2,2)  =  0 
fpvp(2,2,2,3)  =  0 
f pvp(2,2,3,0)  =  0 
fpvp(2,2,3,l)  =  0 
f pvp (2, 2, 3, 2)  =  0 
fpyp(2,2,3,3)  =  0 
fpvp(2,3,0,0)  =  0 
fpvp(2,3,0,l)  =  0 
fpvp(2,3,0,2)  =  0 
fpvp(2,3,0,3)  =  0 
fpvp(2,3,l,0)  =  0 
fpvp(2,3,l,l)  =  0 
fpvp(2,3,l,2)  =  0 
fpvp(2,3,l,3)  =  0 
fpvp(2,3,2,0)  =  0 
fpvp(2,3,2,l)  -  0 
fpvp(2,3,2,2)  =  0 
fpvp(2,3,2,3)  =  0 
fpvp(2,3,3,0)  =  0 
fpvp(2,3,3, 1)  =  0 
fpvp(2,3,3,2)  =  0 
fpvp(2,3,3,3)  =  0 

fpvp(3,0,0,0)  =  (-bydvd (0,0, 0)*zty(kv, jv,l)-bxdvd (0,0,0) *ztx(kv, jv 
1  ,l))/rdj(kv, jv) 

fpvp(3, 0,0,1)  =  (-bydvd(0,0,l) *zty(kv, jv,l)-bxdvd(0,0,l)*ztx(kv, jv 
1  > 1) ) /rdj (kv , jv) 

fpvp(3,0,0,2)  =  (-bydvd(0,0,2)*zty(kv, jv,l) -bxdvd (0,0,2) *ztx(kv, jv 
1  .l))/rdj(kv,jv) 

fpvp(3,0,0,3)  =  (-bydvd (0,0, 3) *zty (kv, jv,l) -bxdvd (0,0,3) *ztx(kv, jv 
1  »l))/rdj(kv,jv) 

fpvp(3,0,l,0)  =  (-bydvd (0,l,0)*zty(kv, jv,l) -bxdvd (0,1,0) *ztx(kv, jv 
1  , l))/rdj (kv, jv) 

fpvp(3,0,l,l)  =  (-bydvd (0,l,l)*zty(kv, jv,l) -bxdvd (0,1,1) *ztx(kv, jv 
1  #l))/rdj (kv, jv) 

f  pvp (3 , 0 , 1 , 2)  =  (-bydvd (0 , 1 , 2) *  zty (kv , j  v , 1 ) -bxdvd (0 , 1 , 2) *  ztx  (kv , j  v 
1  , l))/rdj (kv, jv) 

fpvp(3,0,l,3)  =  0 

f  pvp  (3 , 0 , 2 , 0)  =  (-bydvd  (0 , 2 , 0)  *  zfcy  (kv ,  j  v ,  1 )  -bxdvd  (0 , 2 , 0)  *  ztx  (kv ,  j  v 
1  »l))/rdj(kv, jv) 

f pvp (3, 0,2,1)  =  (-bydvd (0,2,1) *zty (kv, jv,l) -bxdvd (0,2,1) *ztx(kv, jv 
1  ,  l))./rdj  (kv ,  jv) 

f  pvp (3 , 0 , 2 , 2)  =  (-bydvd (0 , 2 , 2) *  zty (kv , j  v , 1) -bxdvd (0,2,2) *ztx  (kv , j  v 
1  ,l))/rdj(kv,jv) 
fpvp(3,0,2,3)  =  0 

f pvp (3, 0,3,0)  =  (-bydvd (0,3,0) *zty(kv,jv,l) -bxdvd (0,3,0) *ztx(kv, jv 
1  ,l))/rdj(kv. jv) 
fpvp(3, 0,3,1)  =  0 
fpvp(3,0,3,2)  =  0 
fpvp(3,0,3,3)  =  0 

f  pvp (3 , 1 , 0 , 0)  =  (-bydvd (1,0,0) *zty (kv , j  v , 1) -bxdvd (1 , 0 , 0) *  ztx (kv , j  v 


•  kV 

m 

HI 
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1  ,l))/rdi(kv,jv)  . 

fpvp(3, 1,0,1)  =  (-bydvd(l,0,l)*zty(kv,jv,l) 

1  ,l))/rdj(kv,jv)  . 

fpvp(3, 1 ,0,2)  =  (-bydvd(l,0,2)*zty(kv,jv,l) 

1  ,l))/rdj(kv,jv) 
fpvp(3,l,0,3)  =  0 

fpvp(3, 1,1,0)  =  (-bydvd (l,l,0)*zty(kv, jv,l) 

1  ,l))/rdj(kv,jv) 
fpvp(3, 1,1,1)  =  0 
fpvp(3,l,l,2)  =  0 
fpvp(3,l,l,3)  =  0 

fpvp(3, 1,2,0)  =  (-bydvd (1,2,0) *zty (kv , jv, 1) 

1  ,l))/rdj(kv,jv) 
fpvp(3, 1,2,1)  =  0 
fPvp(3,l,2,2)  =  0 
fpvpf3, 1,2,3)  =  0 
fpvp(3,l,3,0)  =  0 
fpvp(3, 1,3,1)  =  0 
fpvp(3, 1,3,2)  =  0 
fpvp(3,l,3,3)  =  0 

fpvp(3,2,0,0)  =  (-bydvd (2,0,0) *zty (kv , j  v , 1) 

1  , 1) ) /rdj (kv , jv) 

fpvp(3,2,0, 1)  =  (-bydvd (2,0, 1) *zty (kv, jv,l) 

1  ,l))/rdj (kv, jv) 

fpvp(3,2,0,2)  =  (-bydvd (2, 0,2) *zty (kv , jv, 1) 

1  ,l))/rdj(kv,jv) 
fpvp(3,2,0,3)  =  0 

^pvp(3,2,l ,0)  =  (-bydvd (2,1,0) *zty (kv , j v , 1) 

1  »l))/rdj(kv,jv) 
fpvp(3, 2,1,1)  =  0 
fpvp(3,2,l ,2)  =  0 
fpvp(3,2,l,3)  =  0 

fpvp(3,2,2,0)  =  (~bydvd(2,2,0)*zty(kv, jv,l) 

1  .l))/rdj(kv,jv) 
fpvp(3,2,2,l)  =  0 
fpvp(3,2,2,2)  =  0 
fpvp(3,2,2,3)  =  0 
fpvp(3,2,3,0)  =  0 
fpvp(3,2,3, 1)  =  0 
fpvp(3,2,3,2)  =  0 
fpvp(3,2,3,3)  =0 
fpvp(3,3,0,0)  =  (-bydvd (3, 0,0) *zty (kv, jv, 1) -bxdvd(3,0,0) *ztx(kv, jv 


-bxdvd (l,0,l)*ztx(kv,jv 
-bxdvd (1,0,2) *ztx(kv, jv 


-bxdvd (1,1,0) *ztx(kv, jv 


-bxdvd (1 ,2,0) *ztx(kv, jv 


-bxdvd (2 , 0 , 0)  *  ztx (kv , j  v 
-bxdvd (2 , 0 , 1 ) *  ztx (kv , j  v 
-bxdvd (2 , 0 , 2)  *  ztx  (kv ,  j  v 


-bxdvd (2, 1,0) *ztx(kv, jv 


-bxdvd(2,2,0) *ztx(kv, jv 


L  ,l))/rdj(kv, jv) 
fpvp(3, 3,0,1)  =  0 
fpvp(3,3,0,2)  =  0 
fpvp(3,3,0,3)  =  0 
fpvp(3,3,l,0)  =  0 
fpvp(3,3,l,l)  =  0 
fpvp(3,3,l,2)  =  0 
fpvp(3,3, 1 ,3)  =  0 
fpvp(3, 3,2,0)  =  0 
fpvp(3,3,2,l)  =  0 
fpvp(3,3,2,2)  =  0 
fpvp(3,3,2,3)  =  0 
fpvp(3,3,3,0)  =  0 
fpvp(3,3,3, 1)  =  0 
fpvp(3,3,3,2)  =  0 
fpvp(3,3,3,3)  =  0 
fupp(0, 0,0,0)  =  0 
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fupp(0, 0,0,1) 
fupp(0,0,0,2) 
fupp(0,0,0,3) 
fupp(0, 0,1,0) 
fupp(0, 0,1,1) 
fupp(0, 0,1,2) 
fupp(0, 0,1,3) 

fupp(0, 0,2,0) 
fupp(0, 0,2,1) 
fupp(0,0,2,2) 

fupp (0,0, 2, 3) 
fupp(0, 0,3,0) 
fupp(0, 0,3,1) 
fupp (0,0, 3, 2) 
fupp (0,0, 3, 3) 

fupp(0, 1,0,0) 
fupp(0, 1,0,1) 
fupp(0, 1,0,2) 

fupp(0, 1 ,0,3) 
fupp(0, 1,1,0) 
fupp(0, 1,1,1) 
fupp(0, 1,1,2) 
fupp(0, 1,1,3) 
fupp(0, 1,2,0) 
fupp(0, 1,2,1) 

fupp (0,1, 2, 2) 
fupp(0, 1,2,3) 
fupp(0, 1,3,0) 
fupp(0, 1,3,1) 
fupp(0, 1,3,2) 
fupp(0, 1,3,3) 
fupp (0,2, 0,0) 

fupp(0,2,0,l) 
fupp (0,2, 0,2) 
fupp (0,2,0, 3) 
fupp (0,2, 1,0) 
fupp (0,2, 1,1) 
fupp (0,2, 1,2) 
fupp (0,2, 1,3) 
fupp (0,2, 2,0) 
fupp (0,2, 2,1) 
fupp (0,2, 2, 2) 
fupp(0,2,2,3) 
fupp (0,2, 3,0) 
fupp (0,2, 3,1) 
fupp (0,2,3, 2) 
fupp (0,2, 3, 3) 
fupp(0,3,0,0) 
fupp (0,3, 0,1) 
fupp (0,3,0, 2) 
fupp (0,3, 0,3) 
fupp(0,3,l,0) 
fupp (0,3, 1,1) 
fupp(0,3, 1,2) 
fupp(0,3,l,3) 
fupp (0,3, 2,0) 
fupp (0,3,2,l) 
fupp (0,3, 2, 2) 
fupp (0,3, 2, 3) 
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fupp(0, 0,0,1) 
fupp(0,0,0,2) 
fupp (0,0, 0,3) 
fupp(0, 0,1,0) 
fupp(0, 0,1,1) 
fupp (0,0, 1,2) 
fuPP (0,0, 1,3) 
fupp(0, 0,2,0) 
fupp(0, 0,2,1) 
fupp(0,0,2,2) 

fupp (0,0, 2, 3) 
fupp(0, 0,3,0) 
fupp(0, 0,3,1) 
f“PP (0,0, 3, 2) 
fupp (0,0, 3, 3) 

fupp(0, 1,0,0) 
fupp(0, 1,0,1) 
fupp(0, 1,0,2) 
fupp(0, 1,0,3) 
fupp(0, 1,1,0) 
fupp(0, 1,1,1) 
fupp (0,1, 1,2) 
fupp (0,1, 1,3) 
fupp(0, 1,2,0) 
fupp(0, 1,2,1) 
fupp (0,1, 2, 2) 

fupp (0,1,2, 3) 
fupp(0, 1,3,0) 
fupp(0, 1,3,1) 
fupp (0,1, 3, 2) 
fupp(0, 1,3,3) 
fupp (0,2, 0,0) 

fupp (0,2, 0,1) 

fupp (0,2,0, 2) 

fupp (0,2,0, 3) 
fupp (0,2, 1,0) 
fupp(0,2,l,l) 
fupp (0,2, 1,2) 
fupp(0,2,l,3) 
fupp (0,2, 2,0) 
fupp (0,2, 2,1) 
fupp (0,2, 2, 2) 
fupp(0,2,2,3) 
fupp (0,2, 3,0) 
fupp(0,2,3,l) 
fupp (0,2, 3, 2) 
fupp (0,2,3, 3) 
fupp (0,3, 0,0) 
fupp (0,3, 0,1) 
fupp (0,3, 0,2) 
fupp (0,3, 0,3) 
fupp (0,3, 1,0) 
fupp (0,3, 1,1) 
fupp(0,3, 1 ,2) 
fupp (0,3, 1,3) 
fupp(0,3,2,0) 
fupp(0,3,2, 1) 
fupp (0,3, 2, 2) 
fupp(0, 3,2,3) 


fupp(0, 3,3,0)  =  0 

fupp(0,3,3,l)  =  0 

fupp(0,3,3,2)  =  0 

f upp (0,3, 3, 3)  =  0 

f upp (1,0, 0,0)  =  (-zty(kv, jv,l) *txyudd (0,0,0) -ztx(kv, jv,l)*txxudd(0 

1  ,0,0))/rdj (kv, jv) 

fupp(l, 0,0,1)  =  (-zty(kv, jv,l) *txyudd (0,0,1) -ztx(kv, jv, 1) *txxudd(0 
1  ,0,l))/rdj (kv, jv) 

f  upp ( 1 , 0 , 0 , 2)  =  (-zty (kv , j  v , 1) *txyudd (0,0,2) -ztx (kv , j  v , 1 ) *txxudd (0 
1  ,0,2))/rdj(kv,jv) 

fupp(l ,0,0,3)  =  0 

f  upp ( 1 , 0,1,0)  =  ( - z  ty (kv , j  v , 1 ) *  txy udd (0 , 1 , 0)  -  z  tx  (kv ,  j  v ,  1 )  *  txxudd (0 
1  , l,0))/rdj (kv, jv) 

fupp(l, 0,1,1)  =  0 
fupp(l, 0,1,2)  =  0 
fupp(l,0,l,3)  =  0 

£  upp (1,0, 2,0)  =  (-zty (kv , j  v , 1) * txyudd (0 , 2 , 0) -ztx (kv , j  v , 1) *txxudd (0 
1  ,2,0))/rdj(kv, jv) 

fupp(l, 0,2,1)  =  0 
fupp(l,0,2,2)  =  0 
fupp(l ,0,2,3)  =  0 
fupp(l, 0,3,0)  =  0 
fupp(l, 0,3,1)  =  0 
fupp(l,0,3,2)  =  0 
fupp(l,0,3,3)  =  0 

f  upp (1 ,1,0,0)  =  (-zty (kv , j  v , 1) * txyudd (1,0,0) -ztx (kv , j  v , 1) * txxudd (1 
1  ,0,0))/rdj (kv, jv) 

fupp(l, 1,0,1)  =  0 
fupp(l, 1,0,2)  =  0 
fupp(l,l,0,3)  =  0 
fupp(l, 1,1,0)  =  0 
fupp(l, 1,1,1)  =  0 
f upp(l .1,1,2)  =  0 
fupp(l, 1,1,3)  =  0 
fupp(l, 1,2,0)  =  0 
fupp(l,l,2,l)  =  0 
fupp(l,l,2,2)  =  0 
f upp (1,1, 2, 3)  =  0 
fupp(l, 1,3,0)  =  0 
fupp(l, 1,3,1)  =  0 
f upp (1,1, 3, 2)  =  0 
f upp (1,1, 3, 3)  =  0 

f upp (1 ,2,0,0)  =  (-zty (kv , j v , 1) * txyudd (2,0,0) -ztx (kv , j  v , 1) *txxudd (2 
1  >0,0))/rdj (kv, jv) 

fupp(l,2,0,l)  =  0 
fupp(l,2,0,2)  =  0 
fupp(l,2,0,3)  =  0 
fupp(l,2,l,0)  =  0 
fupp(l,2,l,l)  =  0 
f upp (1,2, 1,2)  =  0 
f upp (1,2, 1,3)  =  0 
fupp(l ,2,2,0)  =  0 
fupp(l,2,2,l)  =  0 
fupp(l ,2,2,2)  =  0 
fupp(l,2,2,3)  =  0 
fupp(l ,2,3,0)  =  0 
fupp(l,2,3,l)  =  0 
f upp (1,2, 3, 2)  =  0 
fupp(l,2,3,3)  =  0 


,w 

ft 


SB 


3 


fupp(l ,3,0,0)  =  0 
£upp(l ,3,0,1)  =  0 
fupp(l ,3,0,2)  =  0 
fupp(l ,3,0,3)  =  0 
f upp (1 ,3,1,0)  =  0 
fupp(l,3,l,l)  =  0 
fupp(l,3,l,2)  =  0 
fupp(l,3,l,3)  =  0 
f upp (1,3, 2,0)  =  0 
f upp(l ,3,2,1)  =  0 
fupp(l ,3,2,2)  =  0 
fupp(l ,3,2,3)  =  0 
f upp (1 ,3,3,0)  =  0 
fupp(l,3,3,l)  =  0 
fupp(l ,3,3,2)  =  0 
fupp(l,3,3,3)  =0 

fupp(2, 0,0,0)  =  (-zty (kv , j  v , 1 ) ♦ tyyudd (0,0,0) 
1  ,0,0))/rdj (kv, jv) 

fupp(2, 0,0,1)  =  (-zty (kv , j  v , 1) * tyyudd (0,0,1) 
1  ,0,1) )  /rdj (kv, jv) 

fupp(2,0,0,2)  =  (-zty (kv , j  v , 1) * tyyudd (0,0,2) 
i  ,0,2))/rdj (kv, jv) 
fupp(2,0,0,3)  =  0 

fupp(2, 0,1,0)  =  (-zty (kv , jv, 1) *tyyudd(0, 1 ,0) 
1  , 1 ,0) ) /rdj (kv , jv) 

fupp(2, 0,1,1)  =  0 
fuPP(2, 0,1,2)  =  0 
fupp(2,0,l,3)  =  0 

fupp(2,0,2,0)  =  (-zty(kv , jv, 1) * tyyudd (0,2,0) 
1  i 2,0)) /rdj (kv , jv) 
fupp(2,0,2, 1)  =  0 
f upp (2, 0,2, 2)  =  0 

fupp(2,0,2,3)  =  0 
fupp(2, 0,3,0)  =  0 
f upp (2 ,0, 3 , 1)  =0 

f upp (2, 0,3, 2)  =  0 
f upp (2, 0,3, 3)  =  0 

fupp(2, 1,0,0)  =  (-zty (kv, jv , 1) *tyyudd(l ,0,0) 


■ztx(kv, jv,l) *txyudd (0 
■ztx (kv , j v , 1) *txyudd (0 
-ztx (kv, jv,l) *txyudd(0 

■ztx(kv, jv, 1) *txyudd (0 


-ztx (kv , j  v , 1 ) *txyudd (0 


-ztx(kv, jv,l)*txyudd(l 


1  ,0,0))/rdj (kv, jv) 

fupp(2, 1,0,1)  =  0 
f upp (2, 1 .0,2)  =  0 

fupp(2, 1,0,3)  =  0 
fupp(2, 1,1,0)  =  0 
fupp(2, 1,1,1)  =  0 
fupp(2,l,l,2)  =  0 
fupp(2, 1,1,3)  =  0 

f upp (2, 1 ,2,0)  =  0 
fupp(2, 1,2,1)  =  0 
fupp(2, 1,2,2)  =  0 
fupp(2, 1 ,2,3)  =  0 
fupp(2, 1,3,0)  =  0 
fupp(2, 1,3,1)  =  0 
fupp(2, 1,3,2)  =  0 
fupp(2, 1,3,3)  =  0 
fupp(2, 2,0,0)  =  (-zt; 

1  ,0,0) ) /rdj (kv , jv) 

fupp(2,2,0, 1)  =  0 
fupp(2,2,0,2)  =  0 
fupp(2,2,0,3)  =  0 


=  (-zty(kv, jv,l) * tyyudd (2,0,0) -ztx (kv, jv,l)*txyudd (2 


A-118 


fupp(2,2,l,0)  =  0 
fupp(2,2,l,l)  =  0 
fupp(2,2,l,2)  =  0 
fupp(2,2, 1,3)  =  0 

f upp (2, 2, 2,0)  =  0 
fupp(2,2,2, 1)  =  0 
fupp(2,2,2,2)  =  0 
fupp(2,2,2,3)  =  0 
f upp (2, 2, 3,0)  =  0 
fupp(2,2,3,l)  =  0 
fupp(2,2,3,2)  =  0 
f upp (2, 2, 3, 3)  =  0 
fupp(2,3,0,0)  =  0 
fupp(2,3,0, 1)  =  0 
fupp(2, 3,0,2)  =  0 
fupp(2,3,0,3)  =  0 
fupp(2,3,l,0)  =  0 
fupp(2,3,l,l)  =  0 
fupp(2,3,l,2)  =  0 
f upp (2, 3, 1,3)  =  0 
fupp(2,3,2,0)  =  0 
fupp(2,3,2, 1)  =  0 
fupp(2,3,2,2)  =  0 
f upp (2, 3, 2, 3)  =  0 
fupp(2,3,3,0)  =  0 
fupp(2,3,3, 1)  =  0 
f upp (2, 3, 3, 2)  =  0 
fupp(2,3,3,3)  =  0 

f upp (3, 0,0,0)  =  (-byudd (0,0,0) *zty (kv, jv,l)-bxudd (0,0,0) *ztx(kv, jv 
1  .l))/rdj(kv,jv) 

fupp(3,0,0,l)  =  (-byudd (0,0,1) *zty(kv, jv, l)-bxudd(0,0, 1) *ztx(kv, j v 
1  .l))/rdj (kv, jv) 

fupp(3,0,0l2)  =  (-byudd (0,0,2) *zty(kv, jv, l)-bxudd(0,0,2) *ztx(kv, jv 
1  ,l))/rdj (kv, jv) 

f  upp (3 , 0 , 0, 3)  =  (-byudd (0,0,3) *zty (kv , j  v , 1) -bxudd (0,0,3) *ztx  (kv , j  v 
1  ,l))/rdj (kv, jv) 

f  upp (3 , 0 , 1 , 0)  =  (-byudd (0,l,0)*zty(kv,jv,l) -bxudd (0 , 1 , 0) *  z tx (kv , j  v 
1  ,l))/rdj (kv, jv) 

f upp (3, 0,1,1)  =  (-byudd (0,l,l)*zty(kv, jv, 1) -bxudd (0,1,1) *ztx(kv, jv 
1  . ’))/rdj(kv,jv) 

f  upp  (,3, 0,1, 2)  =  (-byudd(0,l,2)*zty(kv,  jv,l)  -bxudd  (0,1,2)  *ztx(kv,  jv 
1  ,l))/rdj(kv,jv) 
fupp(3,0, 1 ,3)  =  0 

f upp (3, 0,2,0)  =  (-byudd (0,2,0) *zty (kv, jv, 1) -bxudd (0,2,0) *ztx(kv, jv 
1  ,l))/rdj(kv,jv) 

f upp (3, 0,2, 1)  =  (-byudd (0,2,1) *zty(kv, jv, 1) -bxudd (0,2,1) *ztx(kv, jv 
1  ,l))/rdj(kv,jv) 

fupp(3,0,2,2)  =  (-byudd (0 , 2 , 2) *  z ty (kv , j  v , 1) -bxudd (0 , 2 , 2) +  ztx (kv , j  v 
1  ,l))/rdj(kv,jv) 
fupp(3,0,2,3)  =  0 

f upp (3, 0,3,0)  =  (-byudd (0,3,0) *zty (kv , jv, 1) -bxudd (0,3,0) * ztx (kv, jv 
1  ,l))/rdj(kv,jv) 
fupp(3,0,3, 1)  =  0 
f upp (3, 0,3,2)  =  0 
fupp(3,0,3,3)  =  0 

f  upp (3 , 1 , 0 , 0)  -  (-byudd (1,0,0)*  zty (kv , j  v , 1) -bxudd (1 , 0 , 0) *  ztx (kv , j  v 
1  ,l))/rdj (kv, jv) 

f upp (3, 1 ,0, 1)  =  (-byudd (1,0, 1) *zty (kv, jv,l) -bxudd (1 ,0,1) *ztx(kv, jv 
1  .l))/rdj(kv,jv) 


fupp(3, 1 ,0,2)  =  (-byudd(l,0,2)*zty(kv, jv,l) -bxudd (1,0,2) *ztx(ky,jv 
1  ,l))/rdj(kv,jv) 
fupp(3, 1,0,3)  =0 

fupp(3, 1,1,0)  =  (-byudd (1 , 1 , 0) *zty (kv , v ,  1) -bxudd (1 ,1,0) *ztx (kv , j  v 
1  ,l))/rdj(kv,jv) 
fupp(3, 1,1,1)  =  0 
fupp(3, 1,1,2)  =  0 
f upp(3, 1 ,1,3)  =0 

fupp(3,l,2,0)  =  (-byudd(l,2,0)*zty (kv, jv,l)-bxudd(l,2,0)*ztx(kv, jv 
1  , 1) )/rdj (kv, jv) 

fupp(3, 1,2,1)  =  C 
fupp(3,l,2,2)  =  0 
fuPP(3, 1,2,3)  =  0 
fupp(3, 1,3,0)  =  0 
fupp(3, 1,3,1)  =  0 
f upp(3, 1,3,2)  =0 
fupp(3, 1,3,3)  =0 

fupp(3,2,0,0)  =  (-byudd(2,0,0) *zty (kv,jv, 1) -bxudd (2,0,0) *ztx(kv, jv 
1  , 1) )  / rdj (kv , jv) 

f upp(3,2,0, 1)  =  (-byudd (2, 0,1) *zty (kv, jv, l)-bxudd(2,0, 1) *ztx(kv, jv 
,1)5/ rdj (kv , jv) 

fupp(3,2,0,2)  =  (-byudd (2, 0,2) *zty (kv, jv,l)-bxudd(2,0,2)  *ztx(kv, jv 
»l))/rdj (kv , jv) 
fupp(3,2,0,3)  =  0 

fupp(3,2,l ,0)  =  (-byudd(2,l,0)*zty(kv, jv, 1) -bxudd (2,1,0) *ztx(kv, jv 
,  1) ) /rdj (kv , j v) 
fupp(3, 2,1,1)  =  0 
fupp(3,2,l,2)  =  0 
f upp(3, 2, 1,3)  =0 

fupp(3,2,2,0)  =  (-byudd(2,2,0)*zty(kv, jv,l) -bxudd (2,2,0) *ztx(kv,jv 
, 1) ) /rd j (kv , jv) 
fupp(3,2,2, 1)  =  0 
fupp(3,2,2,2)  =  0 
fupp(3,2,2,3)  =  0 
fupp(3, 2,3,0)  =  0 
fupp(3,2,3, 1)  =  0 
fupp(3,2,3,2)  =  0 
fupp(3,2,3,3)  =  0 

fupp(3,3,0,0)  =  (-byudd(3,0,0)*zty(kv, jv,l)-bxudd(3,0,0) *ztx(kv, jv 
>l))/rdj (kv, jv) 
fupp(3, 3,0,1)  =  0 
fupp(3,3,0,2)  =  0 
fupp(3,3,0,3)  =  0 
fupp(3,3, 1 ,0)  =  0 
fupp(3,3,l,l)  =  0 
fupp(3,3,l,2)  =  0 
fupp(3,3,l,3)  =  0 
fupp(3,3,2,0)  =  0 
fupp(3,3,2, 1)  =  0 
fupp(3,3,2,2)  =  0 
fupp(3,3,2,3)  =  0 
fupp(3,3,3,0)  =  0 
fupp(3,3,3, 1)  =  0 
fupp(3,3,3,2)  =  0 
fupp(3,3,3,3)  =  0 
fvpp(0, 0,0,0)  =  0 
fvpp(0,0,0, 1)  =  0 
fvpp(0,0,0,2)  =  0 
fvpp(0,0,0,3)  =  0 
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'Vpp(0, 0,1,0)  = 
fvpp(0, 0,1,1)  = 
fvpp(0,0, 1 ,2)  = 

fvpp(0,0,l,3)  = 

fvpp(0, 0,2,0)  = 
fvpp(0, 0,2,1)  = 
fvpp(0,0,2,2)  = 

fvPP(0,0,2,3)  = 
fvpp(0, 0,3,0)  = 
fvpp(0, 0,3,1)  = 
fvpp(0,0,3,2)  = 
fvpp(0,0,3,3)  = 
fvpp(0, 1,0,0)  = 
fvpp(0, 1,0,1)  = 
fvpp(0,l,0,2)  = 

fvpp(0, 1,0,3)  = 
fvpp(0, 1,1,0)  = 
fvpp(0, 1,1,1)  - 
fvpp(0,l,l,2)  = 

fvpp (0,1, 1,3)  = 

fvpp(0, 1,2,0)  = 
fvpp(0, 1,2,1)  = 
fvpp(0, 1,2,2)  = 

fvpp(0, 1,2,3)  - 

fvpp(0, 1,3,0) 

fvpp(0, 1,3,1) 

fvpp(0,l,3,2) 

fvPP(0, 1,3,3) 

fvpp (0,2, 0,0) 

fvpp(0,2,0,l) 

fvpp(0,2,0,2) 

fvpp(0,2,0,3) 

fvpp(0,2,l,0) 

fvpp(0,2,l,l) 

fvpp(0,2,l,2) 

fvpp(0,2,l,3) 

'  vpp  (0 , 2 , 2 , 0) 
fvpp(0,2,2,l) 
fvpp(0,2,2,2) 
fvpp (0,2, 2, 3) 
fvpp(0, 2,3,0) 

rvpp(C,2,3,l) 

fvpp (0,2, 3, 2) 

fvpp(0,2,3,3) 

fvpp(0,3,0,0) 

fvpp (0, 3,0,1) 

fvpp(0,3,0,2) 

fvpp(0,3,0,3) 

fvpp(0,3,l,0) 

fvpp(0,3,l,l) 

fvpp(0,3,l,2) 

fvpp(0,3,l,3) 

fvpp(0,3,2,0) 

fvpp(0,3,2,l) 

fvpp(0,3,2,2) 

fvpp (0,3, 2, 3) 

fvpp(0,3,3,0) 

fvpp(0,3,3,l) 

fvpp (0,3, 3, 2) 
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fvpp(0,3;3,3)  =  0 

f vpp ( 1 , 0 , 0 , 0)  =  (-zty (kv , j  v , 1) *txy vdd (0,0,0) -ztx (kv , j  v , 1) *txxvdd (0 
2  >0,0))/ rd j (kv , j  v) 

f vpp (1,0, 0,1)  =  (-zty(ky, jv,l) ♦txyvdd (0,0,1) -ztx (kv, jv,l)*txxvdd(0 
1  ,0,l))/rdj (kv, jv) 

f vpp (1 ,0,0,2)  =  (-zty(kv, jv,l)*txyvdd(0,0,2)-ztx(kv, jv, 1) *txxvdd(0 
,0,2) )/rdj (kv , jv) 
fvPPU,G,0,3)  -  0 

f vpp (1,0, 1,0)  =  (-zty(kv, jv,l) *txyvdd (0,1,0) -ztx (kv, jv,l)*txxvdd(0 
,l,0))/rdj (kv, jv) 
fvpp(l, 0,1,1)  =  0 

fvpp(l, 0,1,2)  =  0 
fvpp(l,0,l,3)  =  0 

f vpp (1 ,0,2,0)  =  (-zty(kv, jv, 1) *txyvdd (0,2,0) -ztx (kv, jv, 1) *txxvdd(0 
>2,0))/rdj (kv, jv) 
fvpp(l, 0,2,1)  =  0 
fvpp(l,0,2,2)  =  0 
fvpp(l,0,2,3)  =  0 
fvpp(l, 0,3,0)  =  0 
fvpp(l, 0,3,1)  =  0 
fvpp(l,0,3,2)  =  0 
fvpp(l,0,3,3)  =  0 

fvpp(l , 1 ,0,0)  =  (-zty(kv, jv,l) *txyvdd (1,0,0) -ztx (kv, jv,l)*txxvdd(l 
,0,0))/rdj (kv, jv) 
fvpp(l, 1,0,1)  =  0 
fvpp(l,l,0,2)  =  0 
fvpp(l, 1,0,3)  =  0 
fvPP(l, 1,1,0)  =  0 
fvpp(l, 1,1,1)  =  0 
fvpp(l,l,l,2)  =  0 
fvPP(l, 1,1,3)  =  0 
fvpp(l, 1,2,0)  =  0 
fvpp(l, 1,2,1)  =  0 
fvpp(l, 1,2,2)  =  0 
fvpp(l,l,2,3)  =  0 
£vpp(l ,1,3,0)  =  0 
fvpp(l, 1,3,1)  =  0 
fvpp(l,l,3,2)  =  0 
fvpp(l, 1,3,3)  =  0 

£ vpp (1 ,2,0,0)  =  (-zty (kv , j  v , 1) *txy vdd (2,0,0) -ztx (kv , j  v , 1) *txxvdd (2 
,0,0))/rdj (kv, jv) 
fvpp(l,2,0,l)  =  0 
fvpp(l,2,Q,2)  =  0 
fvpp(l,2,0,3)  =  0 
fvpp(l,2,l,0)  =  0 
fvpp(l,2,l,l)  =  0 
fvpp(l,2,l,2)  =  0 
fvpp(l,2,l,3)  =  0 
fvpp(l,2,2,0)  =  0 
fvPP(l ,2,2, 1)  =  0 
fvpp(l,2,2,2)  =  0 
fvpp(l,2,2,3)  =  0 
fvpp(l,2,3,0)  =  0 
fvpp(l,2,3,l)  =  0 
fvpp(l,2,3,2)  =  0 
fvpp(l,2,3,3)  =  0 
fvpp(l ,3,0,0)  =  0 
fvpp(l,3,0,l)  =  0 
fvpp(l ,3,0,2)  =  0 


ivpp(l,3,0,3)  =  0 
fvpp(l,3,l,0)  =  0 
fvpp(l, 3,1,1)  =  0 
fvpp(l,3,l,2)  =  0 
fvpp(l,3,l,3)  =  0 
fvpp(l ,3,2,0)  =  0 
fvpp(l,3,2,l)  =  0 
fvpp(l ,3,2,2)  =  0 
fvpp(l,3,2,3)  =  0 
fvpp(l,3,3,0)  =  0 
fvpp(l,3,3,l)  =  0 
fvpp(l ,3,3,2)  =  0 
fvpp(l,3,3,3)  =  0 

f vpp (2 , 0 , 0 , 0)  =  (-zty (kv , j  v , 1) *tyyvdd (0,0,0) -ztx (kv , j v , 1)  ftxyvdd (0 
1  ,0,0))/rdj (kv, jv) 

f vpp (2, 0,0, 1)  =  (~zty(kv, j v,l)*tyyvdd (0,0,1) -ztx (kv, jv, 1) *txyvdd(0 
1  ,0,l))/rdj(kv,jv) 

f vpp (2, 0,0, 2)  =  (-zty(kv, jv,l)*tyyvdd(0,0,2)-ztx(kv, jv,l) *txyvdd(0 
1  ,0,2))/rdj(kv,jv) 

fvpp(2,0,0,3)  =  0 

f vpp (2 , 0 , 1 , 0)  =  f-zty (kv , j  v , 1) * tyy vdd (0,1,0) -ztx (kv , j  v , 1 ) +txyvdd (0 
1  ,l»0))/rdj (kv,jv) 

fvpp(2, 0,1,1)  =  0 
fvpp(2, 0,1,2)  =  0 
fvpp(2,0,l,3)  =  0 

f vpp (2 , 0 , 2 , 0)  =  (-zty (kv , j  v , 1) * tyyvdd (0,2,0) -ztx (kv , j  v , 1) *txyvdd (0 
1  »2,0))/rdj (kv, jv) 

fvpp(2, 0,2,1)  =  0 
fvpp(2,0,2,2)  =  0 
fvpp(2,0,2,3)  =  0 
fvpp(2, 0,3,0)  =  0 
fvpp(2, 0,3,1)  =  0 
fvpp(2,0,3,2)  =  0 
fvpp(2,0,3,3)  =  0 

fvpp(2,l ,0,0)  =  (-zty(kv, jv,l)*tyyvdd(l,0,0)-ztx(kv, jv, 1) *txyvdd(l 
1  ,0.0))/rdj (kv, jv) 

fvpp(2, 1,0,1)  =  0 
fvpp(2, 1,0,2)  =  0 
fvpp(2, 1,0,3)  =  0 
fvpp(2, 1,1,0)  =  0 
fvpp(2, 1,1,1)  =  0 
f VPP (2, 1,1, 2)  =  0 
fvpp(2,l,l,3)  =  0 
fvpp(2, 1,2,0)  =  0 
fvpp(2, 1,2,1)  =  0 
f vpp (2, 1,2, 2)  =  0 
f vpp (2, 1,2, 3)  =  0 
fvPP(2, 1,3,0)  =  0 
fvpp(2, 1,3,1)  =  0 
fvpp(2, 1,3,2)  =  0 
fvpp(2, 1,3,3)  =  0 

f vpp (2, 2, 0,0)  =  (-zty(kv, jv,l)*tyyvdd(2,0,0)-ztx(kv, jv, 1) *txyvdd(2 
1  »0,0))/rdj(kv,jv) 

fvpp(2,2,0,l)  =  0 
fvpp(2,2,0,2)  =  0 
fvpp(2,2,0,3)  =  0 
fvpp(2,2,l,0)  =  0 
fvpp(2,2,l,l)  =  0 
fvpp(2,2,l,2)  =  0 
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fvpp(2,2,l,3)  = 
fvpp(2,2,2,0)  = 
fvpp(2,2,2,l)  = 
fvpp(2,2,2,2)  = 
fvpp(2,2,2,3)  = 
fvpp(2,2,3,0)  = 
fvpp(2,2,3,l)  = 
fvpp(2,2,3,2)  = 
fvpp(2,2,3,3)  = 
fvpp(2,3,0,0)  = 
fvpp(2,3,0,l)  = 
fvpp(2,3,0,2)  = 
fvpp(2,3,0,3)  = 
fvpp(2,3,l,0)  = 
fvpp(2,3,l,l)  = 
fvpp(2,3,l,2)  = 
fvpp(2,3,l,3)  = 
fvpp(2,3,2,0)  = 
fvpp(2,3,2,l)  = 
fvpp(2,3,2,2)  = 
fvpp(2,3,2,3)  = 
fvpp(2,3,3,0)  = 
fvpp(2,3,3,l)  = 
fvpp(2,3,3,2)  = 
fvpp(2,3,3,3)  = 
fvpp(3, 0,0,0)  = 
1  ,l))/rdj(kv,. 

fvpp(3, 0,0,1)  = 

1  »l))/rdj(kv,. 

fvpp(3,0,0,2)  = 
1  >l))/rdj(kv,, 

fvpp(3,0,0,3)  = 
1  >l))/rdj(kv, 
fvpp(3, 0,1,0)  = 
1  ,l))/rdj(kv, 
fvpp(3, 0,1,1)  = 
1  ,l))/rdj(kv, 
fvpp(3, 0,1,2)  = 
1  ,l))/rdj(kv, 
fvpp(3, 0,1,3)  = 
fvpp(3, 0,2,0)  = 
1  ,l))/rdj(kv, 
fvpp(3, 0,2,1)  = 
1  ,l))/rdj(kv, 
fvpp(3,0,2,2)  = 
1  ,l))/rdj(kv, 
fvpp(3,0,2,3)  = 
fvpp(3, 0,3,0)  = 

1  .l))/rdj(kv, 

fvpp(3, 0,3,1)  = 
fvpp(3,0,3,2)  = 
fvpp(3,0,3,3)  = 
fvpp(3, 1,0,0)  = 
1  ,l))/rdj(kv, 
fvpp(3, 1,0,1)  = 
1  ,  l))/rdj (kv, 

fvpp(3,l,0,2)  = 
1  ,l))/rdj(kv, 
fvpp(3, 1,0,3)  = 


(-byvdd(0,0,0)*zty(kv, jv,l) 
jv) 

(-by vdd (0,0,1)*  zty (kv , j  v , 1) 
jv) 

(-byvdd(0,0,2)*zty(kv, jv,l) 
jv) 

(-byvdd (0 , 0 , 3) *zty (kv , j v , 1) 

jv) 

(-byvdd (0 , 1 , 0) *zty (kv , j v , 1) 

jv) 

(-byvdd (0 , 1 , 1) *zty (kv , j v , 1) 

jv) 

(-byvdd(0, 1 , 2) *zty (kv, j v, 1) 

jv) 

0 

(-by  vdd  (0 , 2 , 0)  *  zty  (kv ,  j  v ,  1 ) 

jv) 

;  (-byvdd(0,2,l)*zty(kv, jv,l) 

jv) 

•  (-byvdd(0,2,2)*zty(kv, jv,l) 

jv) 

:  0 

i  (-byvdd(0,3,0)*zty(kv, jv,l) 

jv) 

0 

0 

0 

(-byvdd (1 ,0,0) *zty (kv , j  v , 1) 

jv) 

:  (-byvdd(l,0,l)*zty(kv, jv,l) 

jv) 

=  (-byvdd(l,0,2)*zty(kv, jv,l) 

jy) 

=  0 


-bxvdd (0,0,0)*  ztx (kv , j  v 
-bxvdd (0,0,1)*  ztx (kv , j  v 
-bxvdd (0 , 0 , 2) *  ztx (kv , j  v 
-bxvdd (0,0,3)*  ztx (kv , j  v 
-bxvdd (0,1,0) *ztx (kv , j  v 
-bxvdd (0,1,1)*  ztx (kv , j  v 
-bxvdd (0 , 1 , 2) *ztx (kv , j  v 

-bxvdd (0 , 2 , 0) *  ztx (kv , j  v 
-bxvdd (0,2,l)*ztx(kv, jv 
-bxvdd(0,2,2)*ztx(kv, jv 


-bxvdd (0 , 3 , 0) *  ztx (kv , j  v 


-bxvdd (l,0,0)*ztx(kv, jv 
-bxvdd(l,0,l)*ztx(kv, jv 
-bxvdd (i,0,2)*ztx(kv,jv 


fvpp(3, 1,1,0)  =  (-byvdd  (1 ,1,0)  *zty  (Icy  ,  j  v ,  1)  -bxvdd  (1,1,0)*  ztx  (kv ,  j  v 
1  »l))/rdj(kv, jv) 
fvpp(3, 1,1,1)  =  0 
fvpp(3, 1 ,1,2)  =  0 
fvpp(3,l,l,3)  =0 

f vpp (3, 1,2,0)  =  (-byvdd(l,2,0)*zty(kv, jv,l) -bxvdd (1,2,0) *ztx(kv,jv 
i  .l))/rdj(kv, jv) 
fvpp(3, 1,2,1)  =  0 

fvpp(3, 1,2,2)  =  0 

fvpp(3,l,2,3)  =  0 

f vpp (3, 1,3,0)  =  0 

fvpp(3, 1,3,1)  =  0 

fvpp(3, 1,3,2)  =  0 

fvpp(3,l,3,3)  =  0 

f vpp (3, 2, 0,0)  =  (-byvdd(2,0,0)*zty(kv, jv,l) -bxvdd (2,0,0) *ztx(kv,jv 

1  »l))/rdj(kv,jv) 

fvpp(3,2,0,l)  =  (-byvdd(2,0,l)*zty(kv, jv,l)-bxvdd(2,0,l)*ztx(kv, jv 
1  , l))/rdj (kv, jv) 

fvpp(3,2,0,2)  =  (-byvdd (2, 0,2) *zty(kv, jv,l) -bxvdd (2,0,2) *ztx(kv, jv 
1  , l))/rdj (kv, jv) 

fvpp(3,2,0,3)  =  0 

fvpp(3,2,l,0)  =  (-byvdd(2,l,0)*zty(kv, jv,l) -bxvdd (2,1,0) *ztx(kv, jv 
1  ,l))/rdj(kv,jv) 
fvpp(3,2, 1 , 1)  =  0 
fvpp(3,2,l,2)  =  0 
fvpp(3,2,l,3)  =  0 

fvpp(3,2,2,0)  =  (-byvdd(2,2,0)*zty(kv, jv,l) -bxvdd (2,2,0) *ztx(kv, jv 
1  , l))/rdj (kv, jv) 

fvpp(3,2,2,l)  =  0 
fvpp(3,2,2,2)  =  0 
fvpp(3,2,2,3)  =  0 
fvpp(3,2,3,0)  =  0 
fvpp(3,2,3,l)  =  0 
fvpp(3,2,3,2)  =  0 
fvpp(3,2,3,3)  =  0 

f vpp (3 , 3 , 0 , 0)  =  (-byvdd (3,0,0) *zty (kY , j  v , 1) -bxvdd (3,0,0) *ztx (kv , j  v 
1  , 1) ) /rdj (kv , jv) 

fvpp(3,3,0,l)  =  0 
fvpp(3,3,0,2)  =  0 
fvpp(3,3,0,3)  =  0 
fvpp(3,3,l,0)  =  0 
^ vpp (3, 3, 1,1)  =  0 
fvpp(3,3,l,2)  =  0 
fvpp (3, 3, 1,3)  =  0 
fvpp(3,3,2,0)  =  0 
fvpp(3,3,2,l)  =  0 
fvpp(3,3,2,2)  =  0 
fvpp(3,3,2,3)  =  0 
fvpp(3,3,3,0)  =  0 
fvpp(3,3,3,l)  =  0 
fvpp(3,3,3,2)  =  0 
f vpp (3, 3, 3, 3)  =  0 


A-L25 


gppp(0,0,0,0)  =  3*cavdd00/rdj (kv, jv) 
gppp(0,0,0, 1)  =  2*cavdd01/rdj (kv, jv) 
gppp (0,0, 0,2)  =  2*caydd02/rdj (kv, jv) 
gPPP (0,0, 0,3)  =  0 

gppp(0,0,l,0)  =  cavddlO/rdj (kv, jv)+cavdd01/rdj (kv, jv) 
gPPP(0, 0,1,1)  =  0 
gPPP (0,0, 1,2)  =  0 
gPPP (0,0, 1,3)  =  0 

gppp(0, 0,2,0)  =  cavdd20/rd j (kv , jv)+cavdd02/rdj (kv,  jv) 

gppp(0, 0,2,1)  =  0 

gPPp(0,0,2,2)  =  0 
gPPP (0,0, 2, 3)  -  0 

gppp (0,1, 0,0)  =  2*cavddl0/rdj (kv, jv) 

gppp(0, 1,0,1)  =  0 
gppp(0, 1,0,2)  =  0 

gPPP(0, 1,0,3)  =  0 

gppp(0,2,0,0)  =  2*cavdd20/rdj (kv, jv) 
gPPP (0,2,0, 1)  =  0 
gPPP (0,2, 0,2)  =  0 
gPPP (0,2, 0,3)  =  0 

gppp (1,0, 0,0)  =  (etx(kv, jv,l) * (pddd (0,0,0) -txxddd (0,0,0) ) -ety (kv,j 
1  v,l)*txyddd(0,0,0))/rdj (kv, jv) 

gppp (1,0, 0,1)  =  (-ety(kv, jv,l) *txyddd(0,0,l)+etx(kv, jv,l) *(pddd(0, 
1  0,l)-txxddd(0,0,l))+cavdd00)/rdj (kv, jv) 

gppp ( 1 , 0 , 0 , 2)  =  (etx (kv , j  v , 1) * (pddd (0,0,2) -txxddd (0 , 0 , 2) ) -ety  (kv ,  j 
1  v, 1) *txyddd(0,0,2))/rdj (kv, jv) 
gPPP (1 ,0,0,3)  =  0 

gppp (1,0, 1,0)  =  (-ety(kv, jv,l) *txyddd (0,1,0) +etx(kv, jv, 1)* (pddd (0, 
1  1,0) -txxddd (0,1,0)) + cavddOO) /rd  j (kv , j  v) 

gppp(l, 0,1,1)  =  (etx(kv, jv,l)*pddd(0,l,l)+2*cavdd01)/rdj (kv, jv) 
gppp(l, 0,1,2)  =  cavdd02/rdj (kv, jv) 
gPPP(l,0,l,3)  =  0 

gPPP (1 , 0 , 2 , 0)  =  (etx (kv , j  v , 1) * (pddd (0,2,0) -txxddd (0,2,0)) -ety (kv , j 
1  v, 1) *txyddd(0,2,0))/rdj (kv, jv) 
gppp (1,0, 2,1)  =  cavdd02/rdj (kv, jv) 
gPPP (1 » 0,2, 2)  =  etx (kv , j  v , 1) *pddd (0,2,2)/ rd j (kv , j  v) 
gPPP (1,0, 2, 3)  =  0 

gPPP(l»l»0>0)  =  (-ety(kv, jv,l) *txyddd (1,0,0) +etx(kv,jv,l) * (pddd (1, 
1  0,0)-txxddd(l,0,0))+cavdd00)/rdj (kv, jv) 

gppp (1 , 1 , 0, 1)  =  (etx (kv , j  v , 1) *pddd (1,0,1) +cavddl0+cavdd01) /rd j (kv , 
1  jv) 

gPPP(l>l»0|2)  =  cavdd02/rdj (kv, jv) 
gPPP (1,1, 0,3)  =  0 

gPPP(l|l»l|0)  =  (etx(kv, jv,l)*pddd(l,l,0)+2*cavddl0)/rdj (kv, jv) 

gPPP(l, 1,1,1)  =  0 

gPPP (1»1| 1,2)  =  0 

gPPP(l»l»l»3)  =  0 

gppp(l, 1,2,0)  =  cavdd20/rdj (kv, jv) 

gPPP(l, 1,2,1)  =  0 

gPPP(l >1*2,2)  =  0 

gPPP(l > 1 >2,3)  =  0 

gppp (1,2, 0,0)  =  (etx(kv, jv,l) * (pddd (2,0,0) -txxddd(2, 0,0)) -ety (kv, j 
1  v , 1) *txyddd(2,0,0))/rdj (kv, jv) 
gppp(l,2,0,l)  =  cavdd20/rdj (kv, jv) 
gppp(l,2,0,2)  =  e tx (kv , j  v , 1 ) *pddd (2,0,2)/rdj(kv,jv) 
gPPP(l ,2,0,3)  =  0 
gppp (1,2, 1,0)  =  cavdd20/rdj (kv, jv) 


gppp(l, 2,1,1)  =  0 
gppp(l,2,l,2)  =  0 
gppp(l,2,l,3)  =  0 

gppp(l,2,2,0)  =  etx(kv, jv,l)*pddd(2,2,0)/rdj (kv, jv) 
gppp(l, 2,2,1)  =  0 
gppp(l,2,2,2)  =  0 

gppp(l,2,2,3)  =  0 

gppp (2, 0,0,0)  =  (ety(kv, jv,l) *(pddd (0,0,0) -tyyddd (0,0,0) )-etx(kv, j 
1  v,l)*txyddd(0,0,0))/rdj (kv, jv) 

gppp(2, 0,0,1)  =  (ety (kv , j  v , 1) * (pddd (0,0,1) -tyyddd (0,0,l))-etx(kv,j 
1  v,l)*txyddd(0,0,l))/rdj (kv, jv) 

gppp (2 , 0 , 0 , 2)  =  (ety (kv , j  v , 1) * (pddd (0,0,2) -tyyddd (0 , 0 , 2) ) -etx (kv , j 
1  v,l)*txyddd(0,0,2)+cavdd00)/rdj (kv, jv) 
gpPP (2, 0,0, 3)  =  0 

gppp(2, 0,1,0)  =  (ety (kv , j  v , 1 ) * (pddd (0,1,0) -tyyddd (0 , 1 , 0) ) -etx (kv , j 
1  v,l)*txyddd (0,1,0)) /rdj (kv, jv) 

gppp(2, 0,1,1)  =  ety(kv,jv,l)*pddd(0,l,l)/rdj(kv,jv) 
gppp '2, 0,1, 2)  =  cavddOl/rdj (kv, jv) 
gPP^.2,0,1,3)  =  0 

gppp (2, 0,2,0)  =  (ety(kv, jv,l) * (pddd (0,2,0) -tyyddd (0,2,0) ) -etx (kv, j 
1  v,l)*txyddd(0,2,0)+cavdd00)/rdj (kv, jv) 
gppp(2, 0,2,1)  =  cavddOl/rdj (kv,jv) 

gppp(2,0,2,2)  =  (ety(kv. jv,l)*pddd (0,2,2) +2*cavdd02) /rdj (kv, jv) 
gPPP (2, 0,2, 3)  =  0 

gPPP (2 , 1 , 0 , 0)  =  (ety (kv , j  v , 1) * (pddd (1,0,0) -tyyddd (1,0,0)) -etx (kv , j 
1  v,l)*txyddd(l,0,0))/rdj(kv, jv) 
gppp(2, 1,0,1)  =  ety(kv, jv,l)*pddd(l,0,l)/rdj (kv, jv) 
gppp (2, 1,0,2)  =  cavddlO/rdj (kv, jv) 
gppp(2, 1,0,3)  =  0 

gppp(2, 1,1,0)  =  ety (kv , j v, 1) *pddd(l ,1,0) /rdj (kv , j v) 

gppp(2, 1,1,1)  =  0 

gPPP (2 , 1 , 1 , 2)  =  0 
gppp(2, 1,1,3)  =  0 
gppp (2, 1,2,0)  =  cavddlO/rdj (kv, jv) 

gppp(2, 1,2,1)  =  0 
gppp(2, 1,2,2)  =  0 

gppp(2, 1,2,3)  =  0 

gPPP (2 , 2 , 0, 0)  =  (ety (kv , j  v , 1) * (pddd (2 ,0,0) -tyyddd (2 , 0 , 0) ) -etx (kv , j 
1  v , 1 ) * txyddd (2,0,0) +cavddOO) /rdj (kv , j  v) 

gppp(2,2,0,l)  =  cavddOl/rdj (kv, jv) 

gPPP (2 , 2 , 0, 2)  =  (ety (kv , j  v , 1) *pddd (2,0,2) + cavdd20+cavdd02 ) / rdj (kv , 
1  jv) 

gppp(2,2,0,3)  =  0 

gppp(2,2,l,0)  =  cavddlO/rdj (kv,jv) 

gPPp(2,2,l,l)  =  0 

gppp(2,2,l,2)  =  0 

gppp(2,2,l,3)  =  0 

gppp(2,2,2,0)  =  (ety(kv, jv,l)*pddd(2,2,0)+2*cavdd20)/rdj (kv, jv) 

gppp(2,2,2,l)  =  0 

gppp(2,2,2,2)  =  0 

gppp(2,2,2,3)  =  0 

gPPP (3 , 0, 0, 0)  =  (cav+pddd (0,0,0) +3*cavdO*pddOO+3*cavddOO*pdO-byddd 
1  (0,0,0) *ety(kv, jv,l) -bxddd (0,0,0) *etx(kv, jv,l) ) /rdj (kv, jv) 

gppp (3, 0,0, 1)  =  (cav*pddd(0,0, 1) +2*cavd0*pdd01+cavdl*pdd00+cavdd00 

1  *pdl+2*cavdd01*pd0-byddd(0,0, l)*ety(kv, jv,l) -bxddd (0,0,1) +etx(k 

2  v,jv,l))/rdj(kv,jv) 

gppp(3,0,0,2)  =  (cav*pddd (0,0,2) +2*cavd0*pdd02+cavd2*pdd00+cavdd00 

1  *pd2+2*cavdd02*pd0-byddd (0,0, 2) *ety(kv,jv,l) -bxddd (0,0,2) *etx(k 

2  y,jv,l))/rdj(kv,jv) 


SPPP(3, 0,0,3)  =  (cavddOO* (pd3+l) -byddd (0 , 0 , 3) *ety (kv , j  v , 1) -bxddd (0 
1  ,0,3)*etx(kv, jv,l))/rdj (kv , jv) 

gppp (3 , 0 , 1 , 0)  =  ( cav  *  pddd (0,1,0) +cavd0*pddl0+cavd0*pdd01 +cavdl *  pdd 

1  00+cavdd00*pdl+cavddl0*pd0+cavdd01*pd0-byddd(0, 1 ,0) *ety (kv , jv, 1 

2  ) -bxddd (0, 1, 0) *etx (kv, jv,l))/rdj (kv,jv) 

gppp (3 ,0, 1 , 1)  =  (cav*pddd(0, 1 , 1) +cavd0*pddll+2*cavdl*pdd01+2*cavdd 

1  01 *pdl -byddd (0,1,1) *ety (kv , j  v , 1) -bxddd (0,1,1)*  etx (kv , j  v , 1) ) / rd j 

2  (kv , jv) 

gppp (3, 0,1 ,2)  =  (cavdl*pdd02+cavd2*pdd01+cavdd01*pd2+cavdd02*pdl-b 
1  yddd (0,1,2) *ety (kv , j  v , 1) -bxddd (0,1,2) *etx (kv ,jv,l))/rdj (kv , j  v) 

gppp (3, 0,1,3)  =  cavdd01*(pd3+l)/rdj (kv, jv) 

gppp (3 , 0 , 2 , 0)  =  (cav*pddd (0,2,0) +cavd0*pdd20+cavd0*pdd02+cavd2*pdd 

1  00+cavdd00*pd2+cavdd20*pd0+cavdd02*pd0-byddd(0,2,0) *ety(kv, jv, 1 

2  )-bxddd(0,2,0)*etx(kv, jv,l))/rdj (kv, jv) 

gppp (3, 0,2, 1)  =  (cavdl*pdd02+cavd2*pdd01+cavdd01*pd2+cavdd02*pdl-b 
1  yddd(0,2,l)*ety(kv, jv,l) -bxddd (0,2,1) *etx(kv,jv,l))/rdj (kv, jv) 

gppp(3,0,2,2)  =  (cav*pddd(0,2,2) +cavd0*pdd22+2*cavd2*pdd02+2*cavdd 

1  02*pd2-byddd(0,2,2)*ety(kv, jv,l) -bxddd (0,2,2) *etx(kv,jv,l))/rdj 

2  (kv, jv) 

gppp(3,0,2,3)  =  cavdd02*(pd3+l)/rdj (kv, jv) 

gppp (3 , 0 , 3 , 0)  =  (cavddOO* (pd3+l) -byddd (0,3,0) *ety (kv , j  v , 1)  -bxddd (0 
1  »3,0)*etx(kv, jv,l))/rdj (kv , jv) 

gppp(3,0,3, 1)  =  cavdd01*(pd3+l)/rdj (kv, jv) 
gppp (3, 0,3, 2)  =  cavdd02*(pd3+l)/rdj (kv,  jv) 
gPPP (3, 0,3, 3)  =  0 

gppp (3, 1,0,0)  =  (cav*pddd(l,0,0)+2*cavd0*pddl0+cavdl*pdd00+cavdd00 

1  *pdl+2*cavddlO*pdO-byddd (1,0,0) *ety (kv, jv, 1) -bxddd (1 ,0,0) *etx(k 

2  v, jv,l))/rdj (kv, jv) 

gppp (3, 1,0,1)  =  (cav*pddd(l,0,l)+cavdO*pddll+cavdl*pddlO+cavdl+pdd 

1  01+cavddl0*pdl+cavdd01*pdl-b/ddd(l ,0, 1) *ety (kv, j  v , 1) -bxddd(l ,0, 

2  l)*etx(kv, jv,l))/rdj (kv, jv) 

gppp (3 , 1 ,0, 2)  =  (cavd2*pddl0+cavdl*pdd02+cavddl0+pd2+cavdd02*pdl-b 
1  yddd(l,0,2)*ety(kv, jv,l)-bxddd(l,0,2)*etx(kv, jv,l))/rdj (kv, jv) 
gppp (3, 1,0,3)  =  cavddlO* (pd3+l) /rdj (kv, jv) 

gppp (3 , 1 , 1 , 0)  =  (cav*pddd (1 , 1 , 0) +cavdO*pddll+2*cavdl*pddlO+2*cavdd 

1  10*pdl-byddd(l,l,0)*ety(kv, jv,l) -bxddd (1,1,0) *etx(kv, jv,l))/rdj 

2  (kv , jv) 

gppp(3, 1,1,1)  =  3*cavdl*pddll/rdj (kv, jv) 
gppp (3, 1,1,2)  =  cavd2*pddll/rdj (kv, jv) 
gPPP (3, 1,1, 3)  =  0 

gppp(3, 1,2,0)  =  (cavdl*pdd20+cavd2*pddl0+cavddl0*pd2+cavdd20*pdl-b 
1  yddd(l,2,0)*ety(kv, jv,l) -bxddd (1,2,0) *etx(kv,jv,l))/rdj (kv, jv) 

gppp(3, 1,2,1)  =  cavd2*pddll/rdj (kv, jv) 
gppp(3,l,2,2)  =  cavdl*pdd22/rdj (kv, jv) 
gppp(3, 1,2,3)  =  0 

gppp (3, 1,3,0)  =  cavddlO*(pd3+l)/rdj (kv, jv) 
gppp(3, 1,3,1)  =  0 
gPPP (3, 1,3, 2)  =  0 
gPPP (3, 1,3,3)  =  0 

gppp(3,2,0,0)  =  (cav*pddd(2,0,0)+2*cavd0*pdd20+cavd2*pdd00+cavdd00 

1  *pd2+2*cavdd20*pd0-byddd (2,0,0) *ety (kv , j  v , 1) -bxddd (2,0,0) *etx (k 

2  ▼, j*,l))/rdj(kv,jv) 

gppp(3,2,0, 1)  =  (cavdl *pdd20+cavd2+pdd01 +cavdd01 *pd2+cavdd20*pd 1 -b 
1  yddd(2,0,l)*ety(kv, jv,l)-bxddd(2,0,l)*etx(kv, jv,l))/rdj (kv, jv) 

gppp (3 , 2 , 0 , 2)  =  (cav  *  pddd (2,0,2) +cavdO* pdd22+cavd2*pdd20+cavd2*  pdd 

1  02+cavdd20*pd2+cavdd02*pd2-byddd (2 ,0 , 2) *ety (kv , j v , 1) -bxddd (2,0, 

2  2)*etx(kv , jv,l))/rdj (kv, jv) 
gppp(3,2,0,3)  =  cavdd20*(pd3+l)/rdj (kv, jv) 

gppp (3, 2, 1 ,0)  =  (cavdl*pdd20+cavd2*pdd!0+cavddl0*pd2+cavdd20*pdl-b 


1  yddd (2 , 1 , 0) *ety (kv ; jv,l)-bxddd(2,l,0)*etx(kv, jv,l))/rdj (kv, jv) 
gppp(3,2,l,l)  -  cavd2*pddll/rdj (kv, jv) 
gppp(3,2,l,2)  =  cavdl*pdd22/rdj (kv, jv) 
gppp(3,2,l,3)  =0 

gppp (3 , 2 , 2 ,0)  =  (cav*pddd (2,2,0) +cavd0*pdd22+2*cavd2*pdd20+2*cavdd 

1  20*pd2-byddd (2 , 2 , 0) *ety (kv , j  v , 1) -bxddd (2 , 2 , 0) *  etx (kv , j  v , 1 ) ) /rd j 

2  (kv , j v) 

gppp(3,2,2, 1)  =  cavdl*pdd22/rdj (kv, jv) 
gppp(3,2,2,2)  =  3*cavd2*pdd22/rdj (kv, jv) 
gPPP (3, 2 ,2, 3)  =0 

gppp (3, 2, 3,0)  =  cavdd20*(pd3+l)/rdj (kv, jv) 
gPPP (3, 2, 3, 1)  =  0 
gPPP (3 >2, 3, 2)  =  0 
gPPP (3, 2, 3, 3)  =0 

gppp (3 , 3 , 0 , 0)  =  (cavddOO* (pd3+l) -byddd (3 , 0 , 0) *ety (kv , j  v , 1) -bxddd (3 
1  ,0,0)  *etx  (kv ,  j  v ,  1)  )  /  rd  j  (kv ,  j  v) 

gppp(3,3,0,l)  =  cavdd01*(pd3+l)/rdj (kv, jv) 
gppp (3, 3, 0,2)  =  cavdd02*(pd3+l)/rdj (kv, jv) 
gppp(3, 3,0,3)  =  0 

gppp(3,3,l,0)  =  cavddlO*(pd3+l)/rdj (kv, jv) 
gPPP C3 ,3,1,1)  =  0 
gPPP (3, 3, 1,2)  =  0 
gPPP (3, 3, 1,3)  =  0 

gppp (3, 3, 2,0)  =  cavdd20*(pd3+l)/rdj (kv, jv) 
gppp(3,3,2,l)  =  0 
gPPP (3, 3, 2, 2)  =  0 
gPPP (3, 3, 2, 3)  =  0 

gppu(0, 0,0,0)  =  0 
gppu(0, 0,0,1)  =  0 

gPPu(0,0,0,2)  =  0 
gppu (0,0,0, 3)  =  0 
gppu(0, 0,1,0)  =  0 
gppu(0, 0,1,1)  =  0 
gppu (0,0, 1,2)  =  0 

gppu (0,0, 1,3)  =  0 
gppu (0,0, 2,0)  =  0 
gppu(0,0,2, 1)  =  0 
gppu (0,0, 2, 2)  =  0 

gppu(0,0,2,3)  =  0 
gppu(0, 1,0,0)  =  0 
gppu(0, 1,0,1)  =  0 
gppu(0, 1,0,2)  =  0 
gppu(0, 1,0,3)  =  0 
gppu(0, 2,0,0)  =  0 
gppu(0,2,0,l)  =  0 
gppu(0,2,0,2)  =  0 
gppu (0,2,0, 3)  =  0 

gppu (1 ,0,0,0)  =  (-ety (kv , j  v , 1) +txyddu (0 , 0 , 0) -etx (kv , j  v , 1 ) * txxddu (0 
1  »0,0))/rdj (kv, jv) 

gppu (1,0, 0,1)  =  (-ety(kv, jv,l) ♦txyddu (0,0,1) -etx (kv,jv,l)*txxddu(0 
1  ,0,l))/rdj (kv, jv) 

gppu (1 ,0,0,2)  =  (-ety (kv , j  v , 1) * txyddu (0,0,2) -etx (kv , j  v , 1) *txxddu (0 
1  ,0,2))/rdj (kv, jv) 

gPPu(l ,0,0,3)  =  0 

gppu ( 1 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1) * txyddu (0,1,0) -etx (kv , j  v , 1) * txxddu (0 
1  , l,0))/rdj (kv, jv) 

gppu(l, 0,1,1)  =  0 
gppu(l,0,l,2)  =  0 
gppu(l,0,l,3)  =  0 


gppu(l, 0,2,0)  =  (-ety (kv , j  v , 1) *txyddu (0,2,0) -etx (kv , j  v , 1) * txxddu (0 
1  ,2,0))/rdj (kv, jv) 

gppu(l, 0,2,1)  =  0 
gppu(l,0,2,2)  =  0 
gppu(l,0,2,3)  =  0 

gppu(l, 1,0,0)  =  (-ety(kv, jv,l) *txyddu (1,0,0) -etx (kv, jv,l)*txxddu(l 
1  ,0,0))/rdj(kv,jv) 

gppu(l, 1,0,1)  =  0 

gPPu(l ,1,0,2)  =  0 
gPPu(l ,1,0,3)  =  0 
gppu(l, 1,1,0)  =  0 
gppu(l, 1,1,1)  =  0 
gppu(l,l,l,2)  =  0 
gppu(l,l,l,3)  =  0 
gppu(l, 1,2,0)  =  0 
gppu(l, 1,2,1)  =  0 
gPPu(l ,1,2,2)  =  0 
gPPu(l,l,2,3)  =  0 

gppu (1 ,2,0,0)  =  (-ety (kv , j  v , 1) *txyddu (2,0,0) -etx (kv , j  v , 1) *txxddu  (2 
1  ,0,0))/rdj (kv, jv) 

gPPu(l ,2,0, 1)  =  0 
gppu(l,2,0,2)  =  0 
gppu(l,2,0,3)  =  0 
gppu (1,2, 1,0)  =  0 
gPPu(l,2,l,l)  =  0 
gPPu (1,2, 1,2)  =  0 
gppu (1,2, 1,3)  =  0 

gppu (1 ,2,2,0)  =  0 
gppu(l, 2,2,1)  =  0 
gppu (1 ,2,2,2)  =  0 

gppu(l,2,2,3)  =  0 

gppu (2 , 0 , 0 , 0)  =  (-ety (kv , j  v , 1 ) * tyyddu (0 , 0 , 0) -etx (kv , j  v , 1 ) * txyddu  (0 
1  ,0,0))/rdj(kv,jv) 

gppu (2, 0,0,1)  =  (-ety (kv , j  v , 1) *  tyyddu (0,0,l)-etx (kv , j  v , 1) + txyddu (0 
1  ,0,l))/rdj(kv, jv) 

gppu (2, 0,0, 2)  =  f-ety(kv,jv,l) * tyyddu (0,0,2)-etx(kv,jv,l) * txyddu (0 
1  ,0,2))/rdj(kv, jv) 

gppu(2,0,0,3)  =  0 

gppu  (2 , 0 , 1 , 0)  =  (-ety  (kv ,  j  v ,  1)  *  tyyddu  (0 , 1 , 0)  -etx  (kv ,  j  v ,  1)  *  txyddu  (0 
1  ,l,0))/rdj(kv,jv) 

gppu(2, 0,1,1)  =  0 
gppu(2, 0,1,2)  =  0 
gppu(2,0,l,3)  =  0 

gppu (2 , 0 , 2 , 0)  =  (-ety (kv , j  v , 1 ) * tyyddu (0,2,0)-etx(kv,jv,l) * txyddu (0 
1  ,2,0))/rdj (kv, jv) 

gppu(2, 0,2,1)  =  0 
gppu(2,0,2,2)  =  0 
gppu (2, 0,2, 3)  =  0 

gppu  (2 , 1 , 0 , 0)  =  (-ety  (kv ,  j  v ,  1)  *  tyyddu  ( 1 , 0 , 0)  -e  tx  (kv ,  j  v ,  1)  +  txyddu  ( 1 
1  ,0,0))/rdj(kv,jv) 

gppu(2, 1,0,1)  =  0 
gppu(2, 1,0,2)  =  0 
gppu(2, 1,0,3)  =  0 
gppu(2, 1,1,0)  =  0 
gppu(2, 1,1,1)  =  0 
gppu (2, 1,1, 2)  =  0 
gppu (2, 1,1, 3)  =  0 
gppu(2, 1,2,0)  =  0 
gppu(2, 1,2,1)  =  0 


gppu(2, 1,2,2)  =  0 
gPPu(2, 1 ,2,3)  =  0 

gppu(2,2,0,0)  =  (-ety(kv, jv,l)*tyyddu(2,0,0) 
1  ,0,0))/rdj(kv,jv) 

gppu(2, 2,0,1)  =  0 
gppu(2,2,0,2)  =  0 
gppu(2,2,0,3)  =  0 
gppu(2,2,l,0)  =  0 
gPPu(2,2, 1 , 1)  =  0 
gPPu(2,2,l,2)  =  0 
gPPu(2,2, 1 ,3)  =  0 
gppu(2,2,2,0)  =  0 
gPPu(2,2,2,l)  =  0 
gppu(2,2,2,2)  =  0 

gPPu(2,2,2,3)  =  0 

gppu(3, 0,0,0)  =  (-byddu (0 , 0 , 0)  *ety  (kv ,  j  v ,  1 )  - 
1  ,l))/rdj (kv, jv) 

gppu(3, 0,0,1)  =  (-byddu (0,0,l)*ety(kv, jv,l)- 
1  ,l))/rdj(kv, jv) 

gppu(3,0,0,2)  =  (-byddu (0,0,2) *ety (kv ,  j  v ,  1)  - 
1  »l))/rdj(kv,jv) 

gPPu(3,0,0,3)  =  (-byddu(0,0,3)*ety(kv, jv,l)- 
1  , l))/rdj (kv , jv) 

gppu(3, 0,1,0)  =  (-byddu (0,l,0)*ety(kv, jv,l)- 
1  f l))/rdj (kv, jv) 

gppu(3, 0,1,1)  =  (-byddu (0, 1 , 1) *ety (kv , jv, 1) - 
1  , l))/rdj (kv , jv) 

gppu(3, 0,1,2)  =  (-byddu (0,1,2) *ety (kv ,  j  v ,  1)  - 
1  , l))/rdj (kv, jv) 

gPPu(3,0, 1 ,3)  =  0 

gppu(3, 0,2,0)  *  (-byddu(0,2,0)*ety(kv, jv,l)- 
1  , 1) ) /rdj (kv , jv) 

gppu(3, 0,2,1)  =  (-byddu(0,2,l)*ety(kv, jv,l)- 
1  » 1) ) /rdj (kv , jv) 

gppu(3,0,2,2)  =  (-byddu(0,2,2)*ety(kv, jv,l)- 
1  (l))/rdj (kv, jv) 
gppu(3,0,2,3)  =  0 

gppu(3, 0,3,0)  =  (-byddu(0,3,0)*ety(kv, jv,l)- 
1  ,l))/rdj(kv,jv) 
gppu(3, 0,3,1)  =  0 
gppu(3,0,3,2)  =  0 
gppu(3,0,3,3)  =  0 

gppu(3, 1,0,0)  =  (-byddu(l,0,0)*ety(kv, jv, 1) -1 
1  »l))/rdj(kv, jv) 

gppu(3, 1,0,1)  =  (-byddu(l,0,l)*ety(kv, j v , 1) — 1 
1  »l))/rdj(kv,jv) 

gppu(3, 1,0,2)  =  (-byddu(l,0,2)*ety(kv, jv, 1) -1 
1  , l))/rdj (kv, jv) 

gppu(3,l,0,3)  =  0 

gppu(3, 1,1,0)  =  (-byddu (l,l,0)*ety(kv,jv,l)-l 
1  »l))/rdj(kv,jv) 
gppu(3, 1,1,1)  =  0 
gppu(3, 1,1,2)  =  0 
gppu(3,l,l,3)  =  0 

gppu(3, 1,2,0)  =  (-byddu(l,2,0)*ety(kv, j v, 1) -1 
1  , l))/rdj (kv, jv) 

gppu(3, 1,2,1)  =  0 
gppu(3, 1,2,2)  =  0 
gPPu(3, 1 ,2,3)  =  0 


-etx (kv , j  v , 1) *txyddu (2 


-bxddu (0,0,0) *etx(kv, jv 
-bxddu(0,0,l) *etx(kv, jv 
-bxddu (0,0,2) *etx (kv , j  v 
-bxddu (0 , 0 , 3) *etx (kv , j  v 
-bxddu (0 , 1 , 0) *etx (kv , j  v 
-bxddu (0,1,1) *etx (kv , j  v 
-bxddu (0,1,2) *etx (kv , j  v 

-bxddu (0 , 2 , 0) *etx (kv , j  v 
-bxddu (0,2,1) *etx (kv , j  v 
-bxddu (0,2,2) *etx (kv , j  v 


bxddu (0,3,0) *etx (kv, jv 


-bxddu(l,0,0)*etx(kv, jv 
-bxddu(l,0,l)*etx (kv, jv 
-bxddu.(l  ,0,2)  *etx  (kv ,  j  v 


bxddu (1 , 1 , 0) *etx (kv , j  v 


-bxddu(l,2,0)*etx(kv, jv 


gppu(3, 1,3,0)  =  0 
gPPu(3, 1 ,3, 1)  =  0 
gppu(3, 1,3,2)  =  0 
gppu(3, 1,3,3)  =  0 

gppu (3 , 2 , 0 , 0)  =  ( -byddu (2 , 0 , 0)  *  ety  (kv ,  j  v ,  1) -bxddu (2 , 0 , 0) *  etx (kv , j  v 
1  .l))/rdj(kv,jv) 

gppu(3,2,0, 1)  =  (-byddu(2,0,l)*ety(kv, jv,l) -bxddu (2,0,1) *etx(kv, jv 
1  ,l))/rdj (kv, jv) 

gopu(3,2,0,2)  =  (-byddu (2 , 0 , 2) *ety (kv , j  v , 1) -bxddu (2 , 0 , 2) *  etx (kv , j  v 
1  , 1) ) /rdj (kv , jv) 

gpPu(3,2,0,3)  =  0 

gppu (3 , 2 , 1 , 0)  =  (-byddu (2,1,0) *ety (kv , j  v , 1) -bxddu (2,1,0) *etx (kv , j  v 
1  ,l))/rdj(kv,jv) 
gppu(3,2,l,l)  =  0 
gppu (3, 2, 1,2)  =  0 
gPPu (3, 2, 1,3)  =0 

gppu (3, 2, 2,0)  =  (-byddu (2, 2, 0) *ety (kv, jv, 1) -bxddu (2,2,0) *etx(kv, jv 
1  ,l))/rdj (kv, jv) 
gPPu(3,2,2,l)  =  0 
gppu (3, 2, 2, 2)  =  0 
gppu(3,2,2,3)  =  0 
gppu (3, 2, 3,0)  =  0 
gppu(3,2,3,l)  =  0 
gppu (3, 2, 3, 2)  =  0 
gppu (3, 2, 3, 3)  =  0 

gppu (3, 3, 0,0)  =  (-byddu(3,0,0)*ety (kv, jv,l)-bxddu(3,0,0)*etx(kv, jv 
1  <l))/rdj (kv, jv) 
gPPu(3,3,0, 1)  =  0 
gppu(3,3,0,2)  =  0 
gppu (3, 3, 0,3)  =  0 
gPPu(3,3,l,0)  =  0 
gppu (3, 3 ,1,1)  =  0 
gppu (3 ,3,1,2)  =  0 
gppu (3, 3, 1,3)  -  o 
gppu(3,3,2,0)  =  0 
gppu(3,3,2,l)  =  0 
gppu (3, 3, 2, 2)  =  0 
gppu (3, 3, 2, 3)  =  0 
gppv(0, 0,0,0)  =  0 
gppv(0, 0,0,1)  =  0 
gppv (0,0, 0,2)  =  0 
gppv (0,0, 0,3)  =  0 
gppv(0, 0,1,0)  =  0 
gppv(0, 0,1,1)  =  0 
gppv (0,0, 1,2)  ■  0 

gppv (0,0, 1,3)  =  0 
gppv(0, 0,2,0)  =  0 
gppv(0, 0,2,1)  =  0 
gppv (0,0, 2, 2)  =  0 
gppv (0,0, 2, 3)  =  0 
gppv(0, 1,0,0)  =  0 
gppv(0, 1,0,1)  =  0 
gppv(0, 1,0,2)  =  0 
gppv(0, 1,0,3)  =  0 
gppv(0,2,0,C)  -  0 
gPPY(0,2,0, 1)  =  0 
gppv (0,2, 0,2)  =  0 

gppv (0,2, 0,3)  =  0 

gppv (1,0, 0,0)  =  (-ety(kv, jv, l)*txyddv (0,0,0) -etx (kv, jv,l)*txxddv(0 


1  ,0,0) )/rdj (kv , jv) 

gppv(l,0,0,l)  =  (-ety(kv, jv,l) *txyddv (0,0,1) -etx (kv,jv,l)*txxddv(0 
1  ,0,l))/rdj (kv, jv) 

gppv (1 ,0,0,2)  =  (-ety (kv , j  v , 1) *txyddv (0,0,2) -etx (kv , j v , 1) *txxddv (0 
1  ,0,2))/rdj (kv, jv) 

gppv(l,0,0,3)  =  0 

gppv (1 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1) *txyddv (0,1,0) -etx (kv , j  v , 1) * txxddv (0 
1  ,l,0))/rdj (kv, jv) 

gppv(l, 0,1,1)  =  0 

gppv(l,0,l,2)  =  0 

gppv(l, 0,1,3)  =  0 

gppv ( 1 , 0 , 2 , 0)  =  (-ety (kv , j  v , 1) *txyddv (0,2,0) -etx (kv , j  v , 1) *txxddv (0 

1  ,2,0))/rdj (kv, jv) 

gppv(l, 0,2,1)  =  0 
gPPv(l ,0,2,2)  =  0 
gppv(l ,0,2,3)  =  0 

gppv ( 1 , 1 , 0 , 0)  =  ( -ety (kv , j  v , 1) * txyddv (1,0,0) -etx (kv , j  v , 1) *txxddv (1 
1  ,0,0))/rdj (kv, jv) 

gppv(l, 1,0,1)  =  0 

gppv(l,l,0,2)  =  0 

gppv (1,1, 0,3)  =  0 

gppv(l, 1,1,0)  =  0 

gppv (1,1, 1,1)  =  0 

gppv (1,1, 1,2)  =  0 

gPPv (1,1*1, 3)  =  0 

gppv(l, 1,2,0)  =  0 

gPPV(l,l;2,l)  =  0 

gppv(l, 1,2,2)  =  0 

gppv (1,1, 2, 3)  =  0 

gppv (1,2, 0.0)  =  (-ety(kv,jv,l) * txyddv (2 , 0 , 0) -etx (kv , j  v , 1 ) * txxddv (2 

1  ,0,0))/rdj (kv, jv) 

gPPv(l ,2,0,1)  =  0 

gPPv(l ,2,0,2)  =  0 

gPPv(l,2,0,3)  =  0 

gppv (1 ,2,1,0)  =  0 

gPPv(l ,2,1,1)  =  0 

gppv (1,2, 1,2)  =  0 

gppv (1,2, 1,3)  =  0 

gppv(l,2,2,0)  =  0 

gppv(l,2,2,l)  =  0 

gppv (1 ,2,2,2)  =  0 

gppv (1 ,2,2,3)  =  0 

gppv (2 , 0 , 0 , 0)  =  (-ety (kv , j v , 1) *tyyddv (0,0,0) -etx (kv , j  v , 1) *txyddv (0 

1  >0,0))/rdj (kv, jv) 

gppv(2,0,0, 1)  =  (-ety(k*  , jv,l)*tyyddv(0,0,l)-etx(kv, jv,l)*txyddv(0 
1  i0,l))/rdj (kv, jv) 

gppv(2,0,0,2)  =  (-ety(kv, jv,l) *tyyddv(0,0,2)-etx(kv, jv,l)*txyddv(0 
1  ,0,2))/rdj (kv, jv) 

gppv (2, 0,0, 3)  =  0 

gppv (2 , 0,1,0)  =  (-ety(kv,jv,l) + tyy ddv (0 , 1 , 0) -etx (kv , j  v , 1 ) * txyddv (0 
1  , 1 ,0) )/rdj (kv , jv) 

gppv(2, 0,1,1)  =  0 
gPPv(2,0, 1 ,2)  =  0 
gppv(2, 0,1,3)  =  0 

gppv (2 , 0 , 2 , 0)  =  (-ety (kv , j  v , 1) *tyyddv (0,2,0) -etx (kv , j v , 1) *txyddv (0 
1  ,2,0))/rdj (kv, jv) 

gppv(2, 0,2,1)  =  0 
gppv(2,0,2,2)  =  0 
gppv (2, 0,2, 3)  =  0 
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gppv  (2 , 1 , 0 , 0)  =  (-etjr  (Icy  ,  j  v ,  1)  *tjryddv  (1 ,  0 , 0)  -etx  (kv ,  j  v ,  1)  *txyddv  ( 1 
1  ,0,0))/rdj(kv,jv) 

gppv(2, 1,0,1)  =  0 
gppv(2, 1,0,2)  =  0 
gPPv (2, 1 ,0,3)  =  0 

gppv (2, 1,1,0)  =  0 
gppv(2, 1,1,1)  =  0 
gppv (2, 1,1,2)  =  0 

gppv(2,l,l,3)  =  0 
gppv(2, 1,2,0)  =  0 
gppv(2, 1,2,1)  =  0 
gppv (2, 1,2, 2)  =  0 
gppv (2, 1,2, 3)  =  0 

gppv (2 , 2 , 0 , 0)  =  ( -ety (kv , j  v , 1) * tyyddv (2,0,0) -etx (kv , j  v , 1) *txyddv  (2 
1  ,0,0))/rdj(kv,jv) 

gPPv(2,2,0,l)  =  0 
gPPv(2,2,0,2)  =  0 
gppv(2,2,0,3)  =  0 

gppv (2, 2, 1,0)  =  0 
gppv (2, 2,1, 1)  =  0 
gppv (2, 2, 1,2)  =  0 

gppv (2, 2, 1,3)  =  0 

gppv (2 ,2, 2,0)  =  0 
gppv (2, 2, 2,1)  =  0 
gppv (2, 2, 2, 2)  =  0 

gppv (2, 2, 2, 3)  =  0 

gppv (3 , 0 , 0 , 0)  =  (-byddv (0,0,0) *ety (kv , j  v , 1) -bxddv (0,0,0) *etx (kv , j  v 
1  ,l))/rdj(kv,jv) 

gppv (3,0,0, 1)  =  (-byddv (0,0,l)*ety(kv, jv,l) -bxddv (0,0,1) *etx(kv, jv 
1  »l))/rdj (kv, jv) 

gppv (3, 0,0, 2)  =  (-byddv(0,0,2)*ety(kv, jv,l) -bxddv (0,0,2) *etx(kv,jv 
1  , 1) ) /rdj (kv , jv) 

gppv (3, 0,0, 3)  =  (-byddv(0,0,3)*ety(kv, jv,l) -bxddv (0,0,3) *etx(kv, jv 
1  ,l))/rdj (kv, jv) 

gppv (3 , 0,1,0)  =  (-byddv (0,1,0)*  ety (kv , j  v , 1 ) -bxddv (0 , 1 , 0) *  etx (kv , j  v 
1  ,l))/rdj (kv, jv) 

gppv (3 , 0 , 1 , 1)  =  (-byddv (0,1,1) *ety (kv , j v , 1) -bxddv (0,1,1) *etx  (kv ,  j  v 
1  ,l))/rdj (kv, jv) 

gppv(3,0,l,2)  =  (-byddv (0,1,2)*  ety (kv , j  v , 1) -bxddv (0,1,2) *etx (kv , j  v 
1  , l))/rdj (kv, jv) 

gppv(3, 0,1,3)  =  0 

gppv (3, 0,2,0)  =  (-byddv(0,2,0)*ety(kv, jv,l) -bxddv (0,2,0) *etx(kv, jv 
1  ,l))/rdj (kv, jv) 

gppv (3, 0,2,1)  =  (-byddv(0,2,l)*ety(kv, jv,l) -bxddv (0,2,1) *etx(kv, jv 
1  , 1) )/rdj (kv, jv) 

gppv (3, 0,2, 2)  =  (-byddv(0,2,2)*ety(kv, jv,l) -bxddv (0,2,2) *etx(kv, jv 
1  ,l))/rdj (kv, jv) 
gppv(3,0,2,3)  =  0 

gppv (3, 0,3,0)  =  (-byddv(0,3,0)*ety(kv, jv,l) -bxddv (0,3,0) *etx(kv, jv 
1  ,l))/rdj(kv,jv) 
gppv(3, 0,3,1)  =  0 
gppv (3, 0,3, 2)  =  0 
gppv (3, 0,3, 3)  =  0 

gppv (3, 1,0,0)  =  (-byddv (l,0,0)*ety(kv, jv,l) -bxddv (1,0,0) *etx(kv, jv 
1  » 1) ) / rdj (kv, jv) 

gppv (3, 1,0, 1)  =  (-byddv (l,0,l)*ety(kv, jv,l) -bxddv (1,0,1) *etx(kv, jv 
1  »1))/rdj(kv, jv) 

gppv (3, 1,0,2)  =  (-byddv(l,0,2)*ety(kv, j v , 1) -bxddv (1,0,2) *etx(kv, jv 
1  ;l))/rdj (kv, jv) 
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gppv(3, 1,0,3)  =  0 

gppv(3, 1,1,0)  =  (-byddv (1,1,0) *ety  (kv , j v , 1) -bxddv (1,1,0) *etx (kv , j v 
1  .l))/rdj(kv,jv) 
gPPv (3, 1 , 1 , 1)  =  0 
gPPv(3,l,l,2)  =  0 
gppv(3,l,l,3)  =  0 

gppv  (3 , 1 , 2 , 0)  =  (-byddv  (1 , 2 , 0)  *ety  (kv ,  j  v ,  1)  -bxddv  (1 , 2 , 0)  *  etx  (kv ,  j  v 
1  >l))/rdj(kv, jv) 
gppv(3, 1,2,1)  =  0 
gPPv (3, 1 ,2,2)  =  0 
gppv (3, 1,2, 3)  =  0 
gppv(3, 1,3,0)  =  0 
gppv(3, 1,3,1)  =  0 
gppv(3, 1,3,2)  =  0 
gppv (3, 1,3, 3)  =  0 

gppv (3  2 , 0 , 0)  =  (-byddv (2 , 0 , 0)  *  ety  (kv ,  j  v ,  1) -bxddv (2 , 0 , 0) *  etx (kv , j  v 
1  »l))/rdj (kv, jv) 

gppv (3  2,0,1)  =  (-byddv (2 , 0 , 1) *ety (kv , j  v , 1) -bxddv (2 , 0, 1) *  etx (kv , j  v 
1  .!))/rdj (kv, jv)  '  ' 

gppv (3 , 2 , 0 , 2)  =  (-byddv (2 , 0 , 2)  *ety  (kv ,  j  v , 1) -bxddv (2 , 0 , 2) *etx (kv , j  v 
1  »1))/rdj(kv,jv) 

gppv (3, 2, 0,3)  =  0 

gppv (3  2,1,0)  =  (-byddv (2 , 1 , 0) *ety (kv , j  v , 1) -bxddv (2,1,0)* etx (kv , j  v 
1  >l))/rdj (kv, jv) 
gppv (3, 2, 1,1)  =  0 
gppv (3, 2, 1,2)  =  0 
gppv (3 , 2 , 1 , 3)  =  0 

gppv (3  2,2,0)  =  (-byddv (2 , 2 , 0) *ety (kv , j v , 1) -bxddv (2,2,0) *etx (kv , j  v 
1  >l))/rdj(kv,jv) 
gppv(3, 2,2,1)  a  0 
gppv (3, 2, 2, 2)  =  0 
gppv (3, 2, 2, 3)  =  0 
gppv (3, 2, 3,0)  =  0 
gppv (3, 2, 3,1)  =  0 
gppv (3, 2, 3, 2)  =  0 
gppv (3, 2 ,3, 3)  =  0 

gppv (3  3,0,0)  =  (-byddv (3 , 0 , 0) *ety (kv , j v , 1 ) -bxddv (3,0,0) *etx (kv , j  v 
1  »l))/rdj (kv, jv) 

gppv(3, 3,0,1)  =  0 
gppv (3, 3, 0,2)  =  0 
gppv  (3 , 3 , 0 , 3)  =  0 
gppv (3 , 3 , 1 , 0)  =  0 
gppv (3, 3, 1,1)  =  0 
gppv (3, 3, 1,2)  =  0 
gppv (3 ,3,1, 3)  =  0 
gppv(3, 3,2,0)  =  0 
gppv (3, 3, 2,1)  =  0 
gppv (3, 3, 2, 2)  =  0 
gppv (3, 3, 2, 3)  =  0 

gpup(l,0,0,0)  =  (-ety(kv,jv,l)*txydud(0,0,0)-etx(kv,jv,l)*txxdud(0 

1  ,0,0))/rd3 (kv, jv) 

gpup (1  0 , C , 1)  =  (-ety (kv , j  v , 1) *txydud (0 , 0, 1) -etx (kv , j  v , 1) *txxdud (0 
1  .0,l))/rdj(kv, jv) 

gpup (i , 0 , 0,2)  =  (-ety (kv , j  v , 1 ) * txydud (0 , 0 , 2) -etx (kv , j  v , 1 ) * txxdud (0 
1  >0,2))/rdj (kv, jv) 

gpup(l,0,0,3)  =  0 

gpup (10, 1,0)  =  (-ety (kv , j  v , 1) *  txydud (0 , 1 , 0) -etx (kv , j  v , 1 ) *txxdud (0 
1  ,l,0))/rdj (kv.jv) 

gpup(l, 0,1,1)  =  0 


gpup(l >0, 1 ,2)  =  0 
gpup (1,0, 1,3)  =  0 

gpup (1 ,0,2,0)  =  (-ety (ky , j  v , 1) *txydud (0,2,0) -etx (kv , j  v , 1) *txxdud (0 
1  ,2,0))/rdj (kv, jv) 

gpup(l, 0,2,1)  =  0 
gpup (1,0, 2, 2)  =  0 
gpup (1 ,0,2,3)  =0 

gpup ( 1 , 1,0,0)  =  (-ety(kv,jv,l) * txydud (1 , 0 , 0)  -etx  (kv ,  j  v ,  1 )  *  txxdud ( 1 
1  ,0,0))/rdj(kv,jv) 

gpup(l, 1,0,1)  =  0 
gpup(l , 1,0,2)  =  0 
gpup (1,1, 0,3)  =  0 

gpup (1,2, 0,0)  =  (-ety(kv, jv,l)*txydud(2,0,0)-etx(kv, jv, 1) *txxdud(2 
1  ,0,0))/rdj (kv, jv) 

gpup (1,2, 0,1)  =  0 
gpup (1 ,2,0,2)  =  0 
gPup(l ,2,0,3)  =0 

gpup (2, 0,0,0)  =  (-ety (kv , j  v , 1) * tyydud (0,0,0) -etx (kv , j  v , 1 ) *txydud (0 
1  ,0,0))/rdj (kv, jv) 

gpup (2, 0,0,1)  =  (-ety(kv, jv,l) *tyydud (0,0,1) -etx (kv, jv,l)*txyc.  d(0 
1  ,0,l))/rdj(kv,jv) 

gpup (2, 0,0, 2)  =  (-ety (kv , j  v , 1 ) * tyydud (0 , 0 , 2) -etx (kv , j  v , 1 ) *  txydud (0 
1  i0,2))/rdj (kv, jv) 

gpup(2,0,0,3)  =  0 

gpup (2 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1) *tyydud (0,1,0) -etx (kv , j  v , 1) *txydud (0 
1  ,l,0))/rdj (kv, jv) 

gpup(2, 0,1,1)  =  0 
gpup (2, 0,1, 2)  =  0 
gpup(2, 0,1,3)  =  0 

gpup (2 , 0 , 2 , 0)  =  (-ety (kv , j  v , 1) *tyydud (0,2,0) -etx (kv , j  v , 1) *txydud (0 
1  »2,0))/rdj (kv, jv) 

gpup(2, 0,2,1)  =  0 
gpup (2, 0,2, 2)  =  0 
gpup(2,0,2,3)  =0 

gpup (2, 1 ,0,0)  =  (-ety(kv, jv,l) *tyydud(l,0,0)-etx(kv, jv, l)*txydud(l 
1  ,0,0))/rdj (kv, jv) 

gpup(2, 1,0,1)  =  0 
gpup (2, 1 ,0,2)  =  0 
gpup (2 ,1,0,3)  =  0 

gi —  ,2,0,0)  =  (-ety(kv, jv,l)*tyydud(2,0,0)-etx(kv, jv,l)*txydud(2 

1  j,0))/rdj(kv,jv) 

gt  (2, 2,0,1)  =  0 

gpup (2,2, 0,2)  =  0 
gpup (2, 2, 0,3)  =0 

gpup (3 , 0 , 0 , 0)  =  (-bydud (0 , 0 , 0) *  ety (kv , j  v , 1 ) -bxdud (0 , 0 , 0) *etx (kv , j  v 
1  »l))/rdj (kv, jv) 

gpup (3, 0,0, 1)  =  (-bydud (0, 0, l)*ety(kv, jv,l) -bxdud (0,0,1) *etx(kv, jv 

1  »l))/rdj(kv,jv) 

gpup (3, 0,0, 2)  =  (-bydud (0,0, 2)* ety (kv, jv,l) -bxdud (0,0,2) *etx(kv, jv 
1  il))/rdj(kv,jv) 

gpup (3 , 0 , 0 , 3)  =  (-bydud (0,0,3) *ety (kv , j  v , 1) -bxdud (0,0,3) *etx (kv , j  v 
1  il))/rdj(kv,jv) 

gpup (3 , 0 , 1 , 0)  =  (-bydud (0,1,0) *ety (kv , j  v , 1) -bxdud (0, 1 , 0) *etx (kv , j  v 
1  »l))/rdj(kv,jv) 

gpup (3 , 0 , 1 , 1 )  =  (-bydud (0,1,1) *ety (kv , j  v , 1) -bxdud (0 , 1 , 1) *etx (kv , j  v 
1  »l))/rdj (kv,jv) 

gpup (3, 0, 1 ,2)  =  (-bydud(0,l,2)*ety(kv, jv,l)-bxdud(0,l,2)*etx(kv, jv 
1  ,l))/rdj(kv,jv) 
gpup (3, 0,1, 3)  =  0 


gpup(3,0,2,0)  =  (-bydud(0,2,0)*ety(kv, jv,l) -bxdud (0,2,0) *etx(kv, jv 
1  »l))/rdj (kv , jv) 

gpup (3, 0,2,1)  =  (-bydud(0,2,l)*ety(kv, jv,l) -bxdud (0,2,1) *etx(kv, jv 
1  »l))/rdj(kv,jv) 

gpup (3 , 0 , 2 , 2)  =  (-bydud (0 , 2 , 2)  *ety  (kv ,  j  v ,  1) -bxdud (0,2,2) *etx (kv , j  v 
1  ,l))/rdj(kv,jv) 
gpup (3 ,0,2, 3)  =  0 

gpup (3, 0,3,0)  =  (-bydud (0 , 3 , 0)  *  ety  (kv ,  j  v ,  1 )  - bxdud (0 , 3 , 0)  *etx  (kv ,  j  v 
1  »l))/rdj (kv, jv) 
gpup(3, 0,3,1)  =  0 
gpup(3,0,3,2)  =  0 
gpup (3, 0,3, 3)  =  0 

gpup (3, 1,0,0)  =  (-bydud(l,0,0)*ety(kv, jv,l) -bxdud (1,0,0) *etx(kv,jv 
1  , l))/rdj (kv, jv) 

gpup(3, 1,0,1)  =  (-bydud (1,0,1) *ety (kv , j  v , 1) -bxdud (1,0,1) *etx (kv , j  v 
1  »l))/rdj(kv, jv) 

gpup (3 , 1 , 0 , 2)  =  (-bydud (1 , 0 , 2) *ety (kv , j  v , 1) -bxdud (1,0,2) *etx (kv , j  v 
1  >l))/rdj (kv, jv) 
gpup(3, 1,0,3)  =  0 

gpup (3, 1,1,0)  =  (-bydud (1 ,1,0) *ety (kv , j  v , 1) -bxdud (1 ,1,0) *etx (kv , j  v 
1  ,  l))/rdj (kv, jv) 

gpup(3, 1,1,1)  =  0 
gpup (3, 1,1, 2)  =  0 
gpup(3, 1,1,3)  =  0 

gpup (3, 1,2,0)  =  (-bydud(l,2,0)*ety(kv, jv,l) -bxdud (1,2,0) *etx(kv, jv 
l  »l))/rdj (kv, jv) 
gpup(3, 1,2,1)  =  0 
gpup(3, 1,2,2)  =  0 
gpup(3, 1,2,3)  =  0 

gpup (3 , 2 , 0 , 0)  =  (-bydud (2,0,0) *ety (kv , j  v , 1) -bxdud (2 , 0 , 0) *  etx  (kv , j  v 
L  , l))/rdj (kv, jv) 

gpup (3, 2, 0,1)  =  (-bydud(2,0,l)*ety(kv, jv,l) -bxdud (2,0,1) *etx(kv, jv 
L  ,l))/rdj(kv,jv) 

gpup (3 , 2 , 0 , 2)  =  (-bydud (2,0,2) *ety (kv , j  v , 1) -bxdud (2,0,2) *etx (kv , j  v 
L  ,l))/rdj (kv, jv) 

gpup (3 ,2,0, 3)  =  0 

gpup (3, 2, 1,0)  =  (-bydud(2,l,0)*ety(kv, jv,l) -bxdud (2,1,0) *etx(kv, jv 
, l))/rdj (kv, jv) 
gpup (3, 2, 1,1)  =  0 
gpup (3, 2, 1,2)  =  0 
gpup (3 , 2 , 1 , 3)  =  0 

gpup (3, 2, 2,0)  =  (-bydud(2,2,0)*ety(kv. jv,l)-bxdud(2,2,0)*etx(kv, jv 
,l))/rdj(kv,jv) 
gpup (3,2,2, 1)  =  0 
gpup (3, 2, 2, 2)  =  0 
gpup (3, 2, 2, 3)  =  0 

gpup (3, 3, 0,0)  =  (-bydud(3,0,0)*ety(kv, jv, 1) -bxdud(3,0,0) *etx(kv, jv 
,l))/rdj(kv, jv) 
gpup(3, 3,0,1)  =  0 
gpup (3, 3, 0,2)  =  0 
gpup (3, 3, 0,3)  =  0 

gPvP(l»°»0»0)  =  (-ety(kv, jv,l) *txydvd (0,0,0) -etx(kv, jv,l)*txxdvd(0 
,0,0))/rdj (kv, jv) 

gpvp(l»0>0»l)  =  (-ety(kv, jv,l) *txydvd (0,0,1) -etx(kv, jv,l)*txxdvd(0 
,0,l))/rdj (kv, jv) 

gpvp ( 1 , 0 , 0 , 2)  =  ( - ety (kv , j  v , 1 ) *  txy dvd (0 , 0 , 2) -etx (kv , j  v , 1 ) *  txxdvd (0 
,0,2))/rdj (kv, jv) 
gpvp(l ,0,0,3)  =  0 

gpvp ( 1 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1 ) * txydvd (0 , 1 , 0) -etx (kv , j  v , 1 ) *txxdvd (0 


> 1 >0))/rdj (kv , jv) 
gpvp(l, 0,1,1)  =  0 

gpvp(l,0,l,2)  =  0 

gpvp(l,0,l,3)  =  0 

gpvp ( 1 , 0 , 2 , 0)  =  (-ety (kv , j  v , 1) * txydvd (0,2,0) -etx (kv , j  v , 1 ) *  txxdvd (0 

,2,0))/rdj (kv,jv) 
gpvp(l, 0,2,1)  =  0 

gpvp(l,0,2,2)  =  0 

gpvp(l .0,2,3)  =  0 

gpvp (1, 1,0,0)  =  (-ety(kv, jv,l)*txydvd(l,0,0)-etx(kv, jv, 1) *txxdvd(l 

,0,0))/rdj (kv, jv) 
gpvp(l, 1,0,1)  =  0 

gpvp(l,l,0,2)  =  0 

gpvp(l, 1,0,3)  =0 

gpvp (1 ,2,0,0)  =  (-ety (kv , j  v , 1) * txydvd (2,0,0) -etx (kY , j  v , 1) *txxdvd (2 
,0,0))/rdj (kv, jv) 
gpvp(l,2,0,l)  =  0 
gpvp (1,2, 0,2)  =  0 
gpvp(l,2,0,3)  =  0 

gpvp (2 , 0 , 0 , 0)  =  (-ety (kv , j  v , 1) *tyydvd (0,0,0) -etx (kv , j  v , 1) * txydvd (0 
,0,0))/rdj (kv, jv) 

gpvp (2 , 0 , 0 , 1)  =  (-ety (kv , j  v , 1) * tyydvd (0,0,1) -etx (kv , j  v , 1) * txydvd  (0 
,0,l))/rdj (kv, jv) 

gpvp (2 , 0 , 0 , 2)  =  (-ety (kv , j  v , 1) *tyydvd (0,0,2) -etx (kv , j  v , 1) *txydvd (0 
,0,2))/rdj (kv, jv) 
gpvp (2, 0,0, 3)  =0 

gpvp (2 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1) *tyydvd (0,1,0) -etx (kv , j  v , 1) *txydvd (0 
,1,0) )  /rdj (kv, jv) 
gpvp(2, 0,1,1)  =  0 
gpvp (2,0, 1 ,2)  =  0 
gpvp (2, 0,1, 3)  =  0 

gpvp (2 , 0 , 2 , 0)  =  ( -ety (kv , j  v , 1 ) * tyydvd (0 , 2 , 0) -etx (kv , j  v , 1 ) * txydvd (0 
,2,0))/rdj (kv, jv) 
gpvp(2, 0,2,1)  =  0 
gpvp(2,0,2,2)  =  0 
gpvp (2, 0,2, 3)  =  0 

gpvp (2, 1 ,0,0)  =  (-ety(kv, jv, 1) *tyydvd (1,0,0) -etx (kv, jv, 1) *txydvd(l 
,0,0)) /rdj (kv, jv) 
gpvp(2, 1,0,1)  =  0 
gpvp (2, 1,0, 2)  =  0 
gpvp(2, 1,0,3)  =  0 

gpvp (2 , 2 , 0 , 0)  =  (-ety (kv , j  v , 1 ) *tyydvd (2 , 0 , 0) -etx (kv , j  v , 1) * txydvd (2 
,0,0))/rdj (kv, jv) 
gpvp (2, 2, 0, 1)  =  0 
gpvp(2,2,0,2)  =  0 
gpvp (2, 2, 0,3)  =  0 

gpvp (3 , 0 , 0 , 0)  =  (-bydvd (0 , 0 , 0) +ety (kv , j  v , 1 ) -bxdvd (0,0,0) *etx (kv , j  v 

»l))/rdj(kv,jv) 

gpvp (3, 0,0,1)  =  (~bydvd(0,0,l)*ety(kv, jv,l) -bxdvd (0,0, l)*etx(kv, jv 
,l))/rdj (kv, jv) 

gpvp (3 , 0 , 0 , 2)  =  (-bydvd  (0,0,2)*ety(kv,jv,l) -bxdvd (0 , 0 , 2) *e tx (kv , j  v 
,l))/rdj (kv , jv) 

gpvp(3,0,0,3)  =  (-bydvd(0,0,3)*ety(kv, jv,l) -bxdvd  (0,0,3) *etx(kv, jv 
,l))/rdj(kv,jv) 

gpvp (3,0, 1 ,0)  =  (-bydvd (0,l,0)*ety(kv, jv,l) -bxdvd (0,1,0) *etx(kv, jv 
,l))/rdj(kv, jv) 

gpvp (3, 0,1,1)  =  (- bydvd (0,l,l)*ety(kv, jv,l) -bxdvd (0,1,1) *etx(kv, jv 
, 1) ) /rdj (kv, jv) 

gpvp (3,0, 1 ,2)  =  (-bydvd (0, 1 ,2) *ety (kv, jv, 1) -bxdvd (0,1 ,2) *etx(kv, jv 


1  ,l))/rdj(kv, jv) 
gpvp(3,0,l,3)  =  0 

gpvp (3, 0,2,0)  =  (-bydvd (0, 2,0) *ety(kv, jv,l)-bxdvd(0,2,0)*etx(kv, jv 
1  il))/rdj (kv, jv) 

gpvp (3, 0,2,1)  =  (-bydvd(0,2,l)*ety(kv,  jv,l) -bxdvd  (0,2,1)  *etx(kv, jv 
1  »l))/rdj (kv, jv) 

gpvp(3,0,2,2)  =  (-bydvd(0,2,2)*ety(kv, jv,l) -bxdvd (0,2,2) *etx(ky,jv 
1  »l))/rdj(kv,jv) 
gpvp(3,0,2,3)  =  0 

gpvp (3 , 0 , 3 , 0)  =  (-bydvd (0, 3 , 0) *ety (kv , j  v , 1) -bxdvd (0,3,0) *etx  (kv , j  v 
1  »l))/rdj(kv, jv) 
gpvp(3, 0,3,1)  =  0 
gpvp(3, 0,3,2)  =  0 
SP'P (3 , 0 , 3 , 3)  -  0 

gpvp (3 , 1 , 0 , 0)  =  (-bydvd (1 , 0 , 0) *ety (kv , j  v , 1) -bxdvd (1,0,0) *etx (kv , j  v 
1  ,l))/rdj (kv, jv) 

gpvp (3, 1,0,1)  =  (-bydvd(l,0,l)*ety(kv, jv,l) -bxdvd (1,0,1) *etx(kv, jv 
1  ,l))/rdj (kv, jv) 

gpvp (3 , 1 , 0 , 2)  =  (-bydvd (1,0,2) *ety (kv , j  v , 1) -bxdvd (1,0,2) *etx (kv , j  v 
1  ,l))/rdj(kv,jv) 
gpvp(3, 1,0,3)  =  0 

gpvp (3 , 1 , 1 , 0)  =  (-bydvd (1 , 1 , 0) *ety (kv , j  v , 1) -bxdvd (1,1,0) *etx (kv , j  v 
1  ,l))/rdj (kv, jv) 
gpvp(3, 1,1,1)  =  0 
gpvp (3, 1,1, 2)  =  0 
gpvp (3, 1,1, 3)  =  0 

gpvp (3 , 1 , 2 , 0)  =  (-bydvd (1 ,2,0) *ety (kv, j  v , 1) -bxdvd (1 ,2,0) *etx (kv , j  v 
1  ,l))/rdj(kv,jv) 
gpvp(3, 1,2,1)  =  0 
gpvp(3, 1,2,2)  =  0 
gpvp(3, 1,2,3)  =  0 

gpvp (3 , 2 , 0 , 0)  =  (-bydvd (2,0,0) +ety (kv , j  v , 1) -bxdvd (2 , 0 , 0) *  etx (kv , j  v 
1  *l))/rdj (kv, jv) 

gpvp (3, 2, 0,1)  =  (-bydvd(2,0,l)*ety(kv, jv,l) -bxdvd (2,0,1) *etx(kv, jv 
1  «l))/rdj(kv, jv) 

gPvP (3 , 2 , 0 , 2)  =  (-bydvd (2 , 0 , 2) *ety (kv , j  v , 1) -bxdvd (2 , 0 , 2) *etx  (kv , j  v 
1  .l))/rdj (kv, jv) 

gpvp (3, 2, 0,3)  =  0 

gPvP (3 , 2 , 1 , 0)  =  (-bydvd (2,l,0)*ety(kv,jv,l) -bxdvd (2 , 1 , 0) *  etx (kv , j  v 
1  ,l))/rdj (kv, jv) 
gpvp(3,2,l,l)  =  0 
gpvp (3 , 2 , 1 , 2)  =  0 
gpvp (3 , 2 , 1 , 3)  =  0 

gpvp (3 , 2 , 2 , 0)  =  (-bydvd (2,2,0) *ety (kv , j  v , 1) -bxdvd (2,2,0) *etx (kv , j  v 
1  , l))/rdj (kv, jv) 

gpvp (3, 2, 2,1)  =  0 
gpvp (3, 2, 2, 2)  =  0 
gpvp (3, 2, 2, 3)  =  0 

gpvp  (3 , 3 , 0 , 0)  =  (-bydvd  (3 , 0 , 0)  *  ety  (kv ,  j  v ,  1)  -bxdvd  (3 , 0 , 0)  *  etx  (kv ,  j  v 
1  »l))/rdj (kv, jv) 
gpvp (3, 3, 0, 1)  =  0 
gpvp(3,3,0,2)  =  0 
gpvp(3, 3,0,3)  =  0 

gupp(l ,0,0,0)  =  (-ety(kv, jv,l) *txyudd (0,0,0) -etx (kv, jv,l)*txxudd(0 
1  ,0,0))/rdj (kv, jv) 

gupp(l, 0,0,1)  =  (-ety(kv, j v, 1) *txyudd (0,0,1) -etx (kv, jv,l)*txxudd(0 
1  ,0,l))/rdj (kv, jv) 

gupp(l,0,0,2)  =  (-ety(kv, jv, l)*txyudd(0,0,2)-etx(kv, jv, l)*txxudd (0 
1  ,0,2))/ rd j (kv , j  v) 


gupp(l,0,0,3)  =  0 

gupp (1 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1) *txyudd (0,1,0) -etx (kv , j  v , 1) *txxudd (0 
1  , l|0))/rdj (kv, jv) 

gupp(l, 0,1,1)  =  0 
gupp (1,0, 1,2)  =  0 
gupp(l, 0,1,3)  =  0 

gupp ( 1 , 0 , 2 , 0)  =  ( -ety (kv , j  y , 1) *  txy udd (0,2,0) -etx (kv , j  v , 1 ) *  txxudd (0 
1  >2,0))/rdj (kv, jv) 

gupp(l, 0,2,1)  =  0 
gupp (1 ,0,2,2)  =  0 
gupp (1 ,0,2,3)  =  0 

gupp (1 , 1 , 0 , 0)  =  (-ety (kv , j  v , 1) * txyudd (1,0,0) -etx (kv , j  v , 1) *txxudd  (1 
1  ,0,0))/rdj (kv, jv) 

gupp(l, 1,0,1)  =  0 
gupp(l, 1,0,2)  =  0 
gupp(l, 1,0,3)  =  0 

gupp (1 ,2,0,0)  =  (-ety (kv , j  v , 1) * txyudd (2,0,0) -etx (kv , j  v , 1) *txxudd (2 
1  ,0,0))/rdj (kv , jv) 

gupp(l ,2,0, 1)  =  0 
gupp (1,2, 0,2)  =  0 
gupp (1 ,2,0,3)  =  0 

gupp (2, 0,0,0)  =  (-ety (kv , j  v , 1 ) *  tyyudd (0 , 0 , 0) -etx (kv , j  v , 1 ) * txyudd (0 
1  ,0,0))/rdj (kv , jv) 

gupp (2, 0,0,1)  =  (-ety(kv, jv,l) *tyyudd (0,0,1) -etx (kv, jv,l)*txyudd(0 
,0,l))/rdj (kv, jv) 

gupp (2, 0,0, 2)  =  (-ety(kv, jv,l) * tyyudd (0 , 0 , 2) -etx (kv ,  j  v ,  1 )  * txyudd (0 
,0,2))/rdj (kv , jv) 
gupp(2,0,0,3)  =  0 

gupp (2 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1) * tyyudd (0 , 1 , 0) -etx (kv , j  v , 1 ) *txyudd (0 
1  ,l,0))/rdj(kv,jv) 

gupp(2, 0,1,1)  =  0 
gupp(2, 0,1,2)  =  0 
gupp (2 ,0,1,3)  =  0 

gupp (2 , 0 , 2 , 0)  =  (-ety (kv , j  v , 1) * tyyudd (0,2,0) -etx (kv , j  v , 1 ) * txyudd (0 
1  ,2,0))/rdj (kv, jv) 

gupp (2,0,2,l)  =  0 
gupp (2, 0,2, 2)  =  0 
gupp(2,0,2,3)  =  0 

gupp (2, 1,0,0)  =  (-ety(kv, jv,l) *tyyudd (1,0,0) -etx (kv, jv, 1) *txyudd(l 
1  ,0,0))/rdj (kv, jv) 

gupp (2, 1,0,1)  =  0 
gupp(2, 1 ,0,2)  =  0 
gupp(2, 1,0,3)  =0 

gupp (2 , 2 , 0 , 0)  =  (-ety (kv , j  v , 1) *tyy udd (2,0,0) -etx (kv , j  v , 1) *txyudd (2 
>0,0))/rdj (kv, jv) 
gupp(2,2,0,l)  =  0 
gupp (2, 2, 0,2)  =  0 
gupp (2, 2, 0,3)  =0 

gupp (3, 0,0,0)  =  (-byudd (0,0,0) *ety (kv, jv,l) -bxudd (0,0,0) *etx(kv, jv 
,l))/rdj (kv , jv) 

gupp (3 , 0,0,1)  =  ( -byudd (0,0,l)*ety(kv,jv,l)-bxudd(0,0,l)*etx(kv,jv 
,l))/rdj (kv, jv) 

gupp (3 , 0 , 0 , 2)  =  (-byudd (0 , 0 , 2) *ety (kv , j  v , 1 ) -bxudd (0 , 0 , 2) *etx (kv , j  v 
,l))/rdj (kv, jv) 

gupp (3, 0,0, 3)  =  (-byudd (0,0, 3) *ety(kv, jv,l)-bxudd(0,0,3) *etx(kv, jv 
>l))/rdj(kv, jv) 

gupp (3 , 0 , 1 , 0)  =  (-byudd (0,1,0) *ety (kv , j  v , 1) -bxudd (0,1,0) *etx (kv , j  v 
.l))/rdj(kv, jv) 

gupp (3, 0,1,1)  =  (-byudd (0,l,l)*ety(kv, jv,l) -bxudd (0,1, l)*etx(kv, jv 


1  ,l))/rdj(kv,jv) 

gupp (3 , 0 , 1 , 2)  =  (-byudd (0,1,2) *ety (kv , j v , 1) -bxudd (0,1,2) *etx (kv , j  v 
1  »l))/rdj(kv,jv) 
gupp (3, 0,1, 3)  =  0 

gupp (3, 0,2,0)  =  (-byudd (0,2,0) *ety(kv, jv,l) -bxudd (0,2,0) *etx(kv,jv 
1  ,l))/rdj(kv,jv) 

gupp (3, 0,2,1)  =  (-byudd(0,2,l)*ety(kv, jv,l) -bxudd (0,2,1) *etx(kv,jv 
1  ,l))/rdj (kv, jv) 

gupp (3 , 0 , 2 , 2)  =  (-byudd (0 , 2 , 2) *ety (kv , j  v , 1) -bxudd (0,2,2) *etx (kv , j  v 
1  ,l))/rdj (kv, jv) 
guPP (3, 0,2, 3)  =  0 

gupp (3 , 0 , 3 , 0)  =  (-byudd (0 , 3 , 0)  *ety (kv , j  v , 1) -bxudd (0,3,0) *etx (kv , j  v 
1  ,l))/rdj (kv, jv) 
gupp(3, 0,3,1)  =  0 
gupp (3, 0,3, 2)  =  0 
gupp (3 ,0,3, 3)  =  0 

gupp (3 , 1 , 0 , 0)  =  (-byudd (1,0,0) *ety (kv , j  v , 1) -bxudd (1,0,0) *etx (kv , j  v 
1  , l))/rdj (kv, jv) 

gupp (3, 1,0,1)  =  (-byudd (1, 0, 1) *ety (kv, jv, l)-bxudd(l, 0,1) *etx(kv, jv 
1  , l))/rdj (kv, jv) 

gupp (3 , 1 , 0 , 2)  =  (-byudd (1,0,2) *ety (kv , j  v , 1) -bxudd (1 ,0,2) *etx (kv , j  v 
1  ,l))/rdj (kv, jv) 
gupp(3,l,0,3)  =  0 

gupp (3 , 1 , 1 , 0)  =  (-byudd (1 ,1,0) *ety (kv , j  v , 1) -bxudd (1 ,1,0) *etx (kv , j  v 
1  ,l))/rdj (kv, jv) 
gupp(3, 1,1,1)  =  0 
gupp (3, 1 ,1,2)  =  0 
gupp (3, 1,1, 3)  =  0 

gupp (3 , 1 , 2 , 0)  =  (-byudd (1 ,2,0) *ety (kv , j  v , 1) -bxudd (1 , 2 , 0) *etx (kv , j  v 
1  »l))/rdj(kv,jv) 
gupp(3, 1,2,1)  =  0 
gupp (3, 1 ,2,2)  =  0 
gupp(3, 1,2,3)  =  0 

gupp (3, 2, 0,0)  =  (-byudd (2,0,0) *ety (kv , j  v , 1) -bxudd (2,0,0) *etx (kv , j  v 
1  ,l))/rdj(kv,jv) 

gupp(3 ,2,0,1)  =  (-byudd  (2,0, 1) *ety (kv, jv, 1) -bxudd (2,0,1) *etx (kv, jv 
1  ,l))/rdj (kv, jv) 

gupp (3 , 2 , 0 , 2)  =  (-byudd (2 , 0 , 2) *  ety (kv , j  v , 1 ) -bxudd (2 , 0 , 2) *etx (kv , j  v 
1  , l))/rdj (kv, jv) 

gupp (3, 2, 0,3)  =  0 

gupp (3 , 2,1,0)  =  (-byudd (2,1,0) *ety (kv , j  v , 1) -bxudd (2,1,0) *etx (kv , j  v 
1  , l))/rdj (kv, jv) 

gupp (3, 2, 1,1)  =  0 
gupp (3, 2, 1,2)  =  0 
gupp (3, 2, 1,3)  =  0 

gupp (3 , 2,2,0)  =  (-byudd (2 , 2 , 0) *ety (kv , j  v , 1) -bxudd (2,2,0) *etx (kv , j  v 
1  , l))/rdj (kv, jv) 

gupp (3, 2, 2, 1)  =  0 
gupp (3, 2, 2, 2)  =  0 
gupp (3, 2, 2, 3)  =  0 

gupp (3 , 3,0,0)  =  (-byudd (3 , 0, 0) *  ety (kv , j  v , 1) -bxudd (3,0,0) *etx (kv , j  v 
1  »l))/rdj(kv,jv) 
gupp(3, 3,0,1)  =  0 
gupp (3, 3, 0,2)  =  0 
gupp (3, 3, 0,3)  =  0 

gyPP ( 1 > 0 1 0 » 0] [  =  (-«ty(kv,jv,l) * txyvdd (0,0,0)- etx (kv , j  v , 1) * txxvdd (0 
1  1 0 , 0) )  /rd]  (kv ,  j  v) 

ff^PP ( ■ 1 » 0 >  0 > 1 )  =  (“«by (kv , j  v , 1 ) *txy vdd (0,0,1)- etx (kv , j  v , 1 ) * txxvdd (0 
1  *0»l))/rdj (kv, jv) 


1  >l))/rdj (kv, jv) 

gupp(3,0,l,2)  =  (-byudd (0,1,2) *ety (kv , j  v , 1) 
1  ,l))/rdj (kv, jv) 
gupp(3, 0,1,3)  =  0 

giipp(3, 0,2,0)  =  (-byudd  (0,2,0)  *ety  (kv ,  j  v ,  1) 
1  .l))/rdj(kv, jv) 

gupp(3, 0,2,1)  =  (-byudd (0,2, 1) *ety (kv, jv, 1) 
1  ,l))/rdj(kv, jv) 

gupp(3,0,2,2)  =  (-byudd (0 , 2 , 2) *e ty (kv , j  v , 1) 
1  ,l))/rdj (kv, jv) 
gupp(3,0,2,3)  =  0 

gupp(3, 0,3,0)  =  (-byudd(0,3,0)*ety(kv, jv,l) 
1  , 1) )  /rdj (kv , jv) 

gupp(3, 0,3,1)  =  0 
gupp(3,0,3,2)  =  0 
gupp (3, 0,3, 3)  =  0 

gupp(3, 1,0,0)  =  (-byudd(l,0,0) *ety (kv, jv, 1)- 
1  ,l))/rdj (kv, jv) 

gupp(3, 1,0,1)  =  (-byudd(l,0,l)*ety(kv, jv,l)- 
1  , 1) ) /rdj (kv , jv) 

gupp(3, 1,0,2)  =  (-byudd(l,0,2)*ety(kv, jv,l)- 
1  , 1) ) /rdj (kv , jv) 

gupp(3, 1,0,3)  =  0 

gupp(3, 1,1,0)  =  (-byudd(l, 1,0) *ety(kv, jv, 1)- 
1  ,l))/rdj (kv, jv) 
gupp(3, 1,1,1)  =  0 
gupp(3,l,l,2)  =  0 
gupp (3 , 1 , 1 , 3)  =  0 

gupp(3, 1,2,0)  =  (-byudd(l,2,0) *ety(kv, jv,l)- 
1  ,l))/rdj (kv, jv) 
gupp(3, 1,2,1)  =  0 
gupp (3, 1 ,2,2)  =  0 
gupp (3, 1,2, 3)  =  0 

gupp (3, 2, 0,0)  =  (-byudd (2,0,0) *ety(kv,jv,l)- 
1  ,  l))/rdj (kv, jv) 

gupp(3, 2,0,1)  =  (-byudd(2,0,l)*ety(kv, jv,l)- 
1  ,l))/rdj (kv, jv) 

gupp (3, 2, 0,2)  =  (-byudd (2,0,2) *ety (kv , j  v , 1)  - 
1  ,l))/rdj(kv,jv) 
gupp (3, 2, 0,3)  =  0 

gupp(3,2,l,0)  =  (-byudd(2,l,0)+efcy(kv, jv,l)- 
1  ,l))/rdj(kv, jv) 
gupp (3, 2, 1,1)  =  0 
gupp (3, 2, 1 ,2)  =  0 
gupp (3 ,2,1, 3)  =  0 

gupp (3, 2, 2,0)  =  (-byudd(2,2,0)*ety(kv, jv,l)- 
1  ,l))/rdj (kv, jv) 
gupp(3,2,2,l)  =  0 
gupp (3, 2, 2, 2)  =  0 
gupp (3, 2, 2, 3)  =  0 

gupp(3,3,0,0)  =  (-byudd(3,0,0) *ety (kv, jv,l)- 
1  »l))/rdj(kv,jv) 
gupp(3, 3,0,1)  =  0 
gupp (3, 3, 0,2)  =  0 
gupp (3, 3, 0,3)  =  0  ‘ 

gvpp(l, 0,0,0)  =  (-ety(kv, jv, l)*txyvdd (0,0,0) 
1  »0,0))/rdj (kv, jv) 

gvpp(l, 0,0,1)  =  (-ety (kv , j  v , 1) *txyvdd (0,0,1) 
1  ,0, l))/rdj (kv, jv) 


-bxudd (0 , 1 , 2) *  etx (kv , j  v 


-bxudd (0 , 2 , 0) *  etx  (kv , j  v 
-bxudd (0,2, 1) *etx(kv, jv 
-bxudd (0 , 2 , 2) *  etx (kv , j  v 


- bxudd (0 , 3 , 0) *  etx (kv , j  v 


■bxudd (l,0,0)*etx(kv, jv 
bxudd (1 ,0,1) *etx (kv , j  v 
bxudd (1 ,0,2) *etx (kv , j  v 


-bxudd (1 ,1,0) *etx (kv , j  v 

-bxudd (1 , 2 , 0) *etx (kv , j  v 

-bxudd (2, 0,0) *etx(kv, jv 
-bxudd(2,0, 1) *etx(kv, jv 
-bxudd (2,0,2) +etx (kv , j  v 

-bxudd (2,1,0) *etx (kv , j  v 

-bxudd (2,2,0) *etx (kv , j  v 

-bxudd (3,0,0) *etx (kv , j  v 

)-etx(kv, jv,l)*txxvdd(0 
)  -etx (kv , j  v , 1) *txxvdd (0 


gvpp(l, 0,0,2)  =  (-ety(kv, jv,l)*txyvdd(0,0,2)-etx(kv, jv,l)*txxvdd(0 
,0,2))/rdj(kv,jv) 
gvpp(l,0,0,3)  =  0 

gvpp  ( 1 , 0 , 1 , 0)  =  (-ety (kv , j  v , 1 ) * txy vdd (0,1,0) -etx (kv , j  v , 1 ) * txxvdd (0 
1  ,l,0))/rdj(kv,jv) 

gvpp(l, 0,1,1)  =  0 
gvpp(l, 0,1,2)  =  0 
gvpp(i, 0,1,3)  =  0 

gvpp (1 ,0,2,0)  =  (-ety(kv, jv,l) *txyvdd (0,2,0) -etx (kv, jv, 1) *txxvdd(0 
1  »2,0))/rdj (kv, jv) 

gvpp(l, 0,2,1)  =  0 

gvpp(l,0,2,2)  =  0 

gvpp (1,0, 2, 3)  =  0 

gvpp (1,1 ,0,0)  =  (-ety(kv, jv,l) *txyvdd (1,0,0) -etx (kv, jv, 1) *txxvdd(l 
1  ,0,0))/rdj (kv, jv) 

gvpp(l, 1,0,1)  =  0 
gvpp(l, 1,0,2)  =  0 
gvpp (1,1, 0,3)  =  0 

gvpp(l,2,0,0)  =  (-ety(kv, jv,l)*txyvdd(2,0,0)-etx(kv, jv,l)*txxvdd(2 
1  ,0,0))/rdj (kv, jv) 

gvpp(l ,2,0, 1)  =  0 

gvpp(l,2,0,2)  =  0 

gvpp(l,2,0,3)  =  0 

gvpp (2 , 0 , 0 , 0)  =  (-ety (kv , j  v , 1) *tyyvdd (0,0,0) -etx (kv , j  v , 1) *txyvdd (0 

1  ,0,0))/rdj (kv, jv) 

gvpp(2, 0,0,1)  =  (-ety(kv, j v,l)*tyyvdd (0,0,1) -etx (kv, jv,l)*txyvdd(0 
■  >0,l))/rdj (kv, jv) 

gvpp (2 , 0 , 0 , 2)  =  (-ety (kv , j  v , 1) * tyyvdd (0,0,2) -etx (kv , j  v , 1) *txyvdd (0 
>0,2))/rdj (kv, jv) 
gvpp (2, 0,0, 3)  =  0 

gvpp (2, 0,1,0)  =  (-ety (kv , j  v , 1) * tyy vdd (0 , 1 , 0) -etx (kv , j  v , 1 ) * txy vdd (0 
,l,0))/rdj (kv, jv) 
gvpp(2, 0,1,1)  =  0 
gvpp(2, 0,1,2)  =  0 
gvpp(2, 0,1,3)  =  0 

gvpp (2, 0,2,0)  =  (-ety(kv, jv,l) otyyvdd (0,2,0) -etx (kv, jv, 1) *txyvdd(0 
,2,0))/rdj (kv, jv) 
gvpp(2, 0,2,1)  =  0 

gvpp(2,0,2,2)  =  0 

gvpp(2,0,2,3)  =  0 

gvpp(2, 1,0,0)  =  (-ety(kv, j v, l)*tyyvdd (1,0,0) -etx (kv, jv,l)*txyvdd(l 

»0,0))/rdj (kv, jv) 
gvpp(2, 1,0,1)  =  0 
gvpp (2, 1,0, 2)  =  0 
gvpp (2, 1,0, 3)  =  0 

gvpp(2,2,0,0)  =  (-ety(kv,jv,l)*  tyy vdd (2,0,0)-etx(kv,jv,l)*  txy vdd (2 
,0,0))/rdj(kv,jv) 
gvpp(2,2,0, 1)  =  0 

gvpp(2,2,0,2)  =  0 

gvpp (2, 2, 0,3)  =0 

gvpp (3 , 0 , 0 , 0)  =  (-by vdd (0 , 0 , 0) *  e ty (kv , j  v , 1 ) - bxvdd (0,0,0) *etx (kv , j  v 
»l))/rdj(kv,jv) 

gvpp (3, 0,0, 1)  =  (-byvdd(0,0,l)*ety(kv, jv,l) -bxvdd (0,0,1) *etx(kv, jv 
>l))/rdj(kv.jv) 

gvpp (3 , 0 , 0 , 2)  =  (-byvdd (0 , 0 , 2) *ety (kv , j  v , 1) -bxvdd (0,0,2) *etx (kv , j  v 
»l))/rdj(kv,jv) 

gvpp (3 , 0 , 0 , 3)  =  (-byvdd (0 , 0 , 3) *ety (kv , j  v , 1) -bxvdd (0,0,3) *etx (kv , j  v 
, l))/rdj (kv, jv) 

gvpp (3, 0,1,0)  =  (-byvdd (0,l,0)*ety(kv, jv,l) -bxvdd (0,1,0) *etx(kv, jv 


1  >l))/rdj(kv,jv) 

gvpp(3,0,l,l)  =  (-byvdd(0,l,l)*ety(kv, jv,l) -bxvdd (0,l,l)*etx(kv, jv 
1  »l))/rdj (kv, jv) 

gvpp (3, 0,1,2)  =  (-byvdd(0,l,2)*ety(kv, jv,l) -bxvdd (0,1,2) *etx(kv, jv 
1  ,l))/rdj(kv,jv) 
gvpp(3,0,l,3)  =  0 

gvpp (3, 0,2,0)  =  (-byvdd (0,2,0) *ety (kv, jv,l) -bxvdd (0,2,0) *etx(kv, jv 
1  i 1) )/rdj (kv, jv) 

gvpp (3, 0,2,1)  =  (-byvdd(0,2,l)*ety(kv, jv,l) -bxvdd (0,2,1) *etx(kv, jv 
1  >l))/rdj(kv,jv) 

gvpp (3 , 0, 2 , 2)  =  (-byvdd (0,2,2) *ety (kv , j  v , 1) -bxvdd (0,2,2) *etx (kv , j v 
1  »l))/rdj(kv,jv) 
gvpp(3,0,2,3)  =  0 

gvpp (3, 0,3,0)  =  (-byvdd(0,3,0)*ety(kv, jv,l) -bxvdd (0,3,0) *etx(kv, jv 
1  ,l))/rdj(kv, jv) 
gvpp (3, 0,3,1)  =  0 
gvpp (3, 0,3, 2)  =  0 
gvpp(3,0,3,3)  =  0 

gvpp  (3 , 1 , 0 , 0)  =  (-by  vdd  (1 , 0 , 0)  *ety  (kv ,  j  v ,  1)  -bxvdd  (1,0,0)  *etx  (kv ,  j  v 
1  , l))/rdj (kv, jv) 

gvpp (3, 1,0,1)  =  (-byvdd(l,0,l)*ety(kv, jv,l) -bxvdd (1,0,1) *etx(kv, jv 
1  ,l))/rdj (kv, jv) 

gvpp (3, 1,0,2)  =  (-by vdd (1 , 0 , 2) *  ety (kv , j  v , 1) -bxvdd (1,0,2) *etx (kv , j  v 
1  >l))/rdj (kv, jv) 
gvpp(3, 1,0,3)  =  0 

gvpp (3, 1,1,0)  =  (-byvdd (1 , 1 , 0) *ety (kv , j  v , 1) -bxvdd (1,1,0) *etx (kv , j  v 
1  ,l))/rdj (kv, jv) 
gvpp(3, 1,1,1)  =  0 
gvpp (3, 1,1, 2)  =  0 
gvpp(3, 1,1,3)  =  0 

gvpp (3, 1,2,0)  =  (-byvdd (1 ,2,0) *ety (kv , j v , 1) -bxvdd (1,2,0) *etx (kv , j  y 
1  «l))/rdj (kv, jv) 
gvpp(3, 1,2,1)  =  0 
gvpp (3, 1,2,2)  =  0 
gvpp(3, 1,2,3)  =  0 

gvpp (3 , 2 , 0 , 0)  =  (-byvdd (2,0,0) *ety (kv , j  v , 1) -bxvdd (2,0,0) *etx (kv , j  v 
1  »l))/rdj (kv, jv) 

gvpp(3,2,0,l)  =  (-byvdd(2,0,l)*ety(kv, jv,l)-bxvdd(2,0,l)*etx(kv, jv 
1  ,l))/rdj(kv, jv) 

gvpp (3, 2, 0,2)  =  (-byvdd(2,0,2)*ety(kv, jv,l) -bxvdd (2,0,2) *etx(kv, jv 
1  »l))/rdj (kv, jv) 
gvpp (3, 2, 0,3)  =  0 

gvpp (3 , 2 , 1 , 0)  =  (-byvdd (2,1,0) *ety (kv , j  v , 1) -bxvdd (2,1,0) *etx (kv , j  v 
1  il))/rdj (kv, jv) 
gvpp (3, 2, 1,1)  =  0 
gvpp(3,2,l,2)  =  0 
gvpp (3, 2, 1,3)  =  0 

gvpp (3 , 2 , 2 , 0)  =  (-byvdd (2,2,0) *ety (kv , j  v , 1) -bxvdd (2,2,0) *etx (kv , j  v 
1  »l))/rdj(kv,jv) 
gvpp(3,2,2, 1)  =  0 

gvpp(3,2,2,2)  =  0 

gvpp (3, 2, 2, 3)  =  0 

gvpp(3,3,0,0)  =  (-byvdd (3, 0,0) *ety(kv, jv,l)-bxvdd(3,0,0)*etx(kv, jv 

1  ,l))/rdj(kv,jv) 
gvpp(3,3,0,l)  =  0 

gvpp(3,3,0,2)  =  0 

gvpp(3,3,0,3)  =  0 


Appendix  B 


MACROS  FOR  GENERATING  FORTRAN  CODE 


name ( var, ii) : : = 

buildq( [ var , ii ] , concat ( ' var , ' d, ii) ) ; 


nameu(var,ii) : := 

buildq( [ var ,  ii  ] , concat ( ' var , ' u , ii ) ) ; 
namev ( var , ii ) : : = 

buildq( [var, ii ], concat ( 'var, 'v,ii) ) ; 


gensub(var) : := 

buildq ( [ var ] , nvar : subst ( [ gam 

gamma, j  =  rdj [ kv, jv] ,mu  =  rrmu [ kv, j v] , ztx  =  ztx[kv,jv 
=  zty [ kv, jv, 1 ] 

' etx  =  etx[ kv, j v, 1 ] ,ety  =  ety [ kv, jv, 1 ] , 'DIFF(m, zta, 1 )  = 
roudzt[kv, jv] , 'DIFF(m, 

eta,l)  =  roudet[kv, jv] , 'DIFF(n, zta, 1 )  = 
rovdztfkv, jv], 'DIFF(n,eta, 1 )  =  rovdetf 

kv> jv] , 'DIFF(e,zta,l)  =  roedzt f kv, jv] , 'DIFF(e, eta, 1 )  = 
roedet [ kv , jv ] , ' DIFF ( r , 


zta,l)  =  rhodzt [ kv, jv] , 'DIFF (r,eta, l )  =  rhodet[kv, jv] ,r  ■ 
rho[kv, jv, 1 ] ,m  =  rhou 


[kv,jv,l],n  =  rhov[kv, jv,l],e  =  rhoe[kv, jv, 1 ] ] , var ) ) ; 


unmod( varr) : :=buildq( [varr] , (gensub( varr ) , fortran( ' varr=nvar) ) ) ; 


outputd(var,te,ii) : := 
buildq( [var,te,ii] , 
f ortran ( name ( var, ii)=te) ) ; 


ou tputdu ( var , te , ii ) : :  = 
buildq( [var,te,ii] , 
fortran ( nameu ( var , ii ) =te ) ) ; 


outputdv(var,te/ii) :  :  = 
buildq( [var,te,ii] , 
fortran (namev( var, ii)=te) ) ; 


proc(var) : := 

buildq( [var] , 

for  ii:0  thru  3  do  (  te :dif f ( var ,q[ ii ] ) , 

if  TE  #  0  THEN  (gensub(te) ,outputd(var,nvar, ii) , 
app!y( 'gradef , [ 'var,q[ii] ,name(var,ii) ])))); 


procmu(var) : := 

buildq( [var] , 

(  ii:0  ,  ( 

apply ( 'gradef, [ 'var,q[ii] , name (var , ii )  ] ) ) ) ; 


B-2 


procu( var ) : : = 

buildq( [var] , 

fcr  ii:0  thru  3  do  (  te : dif f ( var ,dif f (q[ ii ] , zta) ) , 
if  TE  #  0  THEN  (gensub(te) ,outputdu(var,nvar,ii) , 

apply ( ' gradef , [ ' var, dif f (q[ ii ] , zta) , nameu ( var , ii ) ])))); 


procmuu(var) : := 
buildq( [var] , 

for  ii:l  thru  2  do  ( 

apply ( 'gradef, [ ' var ,dif f (q[ ii ] , zta ) , nameu ( var, ii) ] ) ) ) ; 


procv( var ) : : = 

buildq( [var] , 

for  ii : 0  thru  3  do  (  te :dif f ( var ,dif f (q[ ii ] , eta) ) , 
if  TE  #  0  THEN  (gensub(te) ,outputdv(var,nvar,ii) , 

aPPly ( 'gradef, [ ' var, dif f (q[ ii ] ,eta) , namev( var , ii ) ])))); 


procmuv(var) : := 
buildq( [var] , 

for  ii:l  thru  2  do  ( 

apply ( 'gradef , [ 'var,diff (q[ii] ,eta) ,namev(var,ii) ] ) ) ) ; 


outputad(arn,nd, ii, j j ) : := 

buildq( [arn,nd,ii, j ] , fortran (concat ( 'arn, 'p, “ ( " , j i, " , " , j j , " ) " )=nd) ) ; 


«s 

£ 
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arrg(arn) : : = 

buildq( [arn] , 

for  ii:0  thru  3  do( 
for  j  j : 0  thru  3  do( 
te:diff (arn[ii],q[ jj])# 
gensub( te) , 

outputad( arn, nvar, ii, jj ) ) ) ) ; 


arrgu(arn) : := 

buildq( [arn] , 

for  ii : 0  thru  3  do(  for  j  j : 0  thru  3  do( 
te:diff (arn[ii] ,diff (q[ j j ] ,  zta) ) , 
gensub( te) , 

outputbd ( arn , nvar , ii , j  j ) ) ) ) ; 


arrgv(arn) : := 

buildq( [arn] , 

for  ii : 0  thru  3  do(  for  j  j : 0  thru  3  do( 
te:dif f (arn[ ii] ,diff (q[ j j ] ,eta) ) , 
gensub( te) , 

outputcd ( arn , nvar , ii , j  j ) ) ) ) ; 


outputbd(arn,nd,ii, j j ) : := 

buildq(  [arn,  nd,  ii,  j  ],  fortran  (concat(  'arn,  'u, "  ( " ,  ii, " , " ,  j  j  ,  - )  ••  )=nd)  ) ; 
outputcd(arn,nd,ii, j j ) ; := 

buildq( [arn,nd,ii, j ] , fortran (concat( 'arn, ' v, " ( " , ii, " , " , j j , “ ) » )=nd) ) ; 


zot ( far) 
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buildq( [ far] , <proc( f ar ) ,remvalue( f ar ) ) ) ; 
zotu( far ) : : = 

buildq( [far] , (procu(far) ,remvalue(far) ) ) ; 
zotv(far) : := 

buildq( [ far] , (procv( far ) , remvalue( far ) ) ) ; 


outputgen(arn,nd, ii, j j ) : := 

buildq(  [arn,nd,ii, j j ] ,  fortran  (concat(  'arn,  'dd,ii,  j  j  )=nd) ;  $ 
outputgenpu(arn,nd,ii, j j ) : := 

buildq( [arn,nd,ii, j j] , fortran (concat( 'arn, 'du,ii, j j)=nd) )$ 
outputgenpv(arn,nd,ii, j j ) : := 

buildq( [arn,nd,ii, j j ] , fortran (concat( 'arn, 'dv,ii, j j )=nd) ) $ 
outputgenup(arn,nd,ii, j j ) : := 

buildq( [arn,nd,ii, j j ] ,fortran(concat( 'arn, 'ud, ii, j j )=nd) )$ 
outputgenuu(arn,nd,ii, j j ) : := 

buildq( [arn,nd,ii, j j ] ,f ortran(concat ( 'arn, 'uu,ii, j j )=nd) )$ 


outputgenuv ( arn ,nd,ii,jj)::= 

buildq( [arn,nd,ii, j j ] , fortran (concat( 'arn, 'uv,ii, j j )=nd) ) $ 


7F7- 


m 
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outpu tgenvu ( arn , nd , ii , j  j ) : :  = 

buildq( [arn,nd,ii, j j } , fortran (concat ( 'arn, 'vu,ii, j j )=nd) )$ 
outputgenvv(arn, nd, ii, j  j ) : :  = 

buildq( [arn,nd, ii, j j ] , fortran ( concat ( 'arn, ' vv, ii, j j )=nd) ) $ 
outputgenvp ( arn ,nd,ii,jj) : := 

buildq( [arn,nd,ii, j j ] , fortran ( concat ( 'arn, ' vd, ii, j j )=nd) ) $ 
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proc2(var) : := 

buildq( [ var ] , 

(for  ii:0  thru  3  do(  te:  dif f ( var ,q[ ii ] ) , 
if  te  #  0  then  (for  j  j : 0  thru  3  do 
(teetdiff (te,q[ j j ] ) , 
if  tee  #  0  then  (  gensub(tee), 
outputgen(var,nvar,ii, j j ) , 

apply( 'gradef , [concat( 'var, 'd,ii) ,q[ j j ] ,concat( 'var, 
dd, ii, jj )]))))))) $ 

procmu2(var) : := 

buildq( [var] , 

(ii: 0  /  jj:0  ,( 

apply( 'gradef, [concat( 'var, 'd,ii) ,q[ j j ] ,concat( 'var, 'dd,ii 
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proc2pu(var) : := 

buildq( [ var ] , 

(for  ii:0  thru  3  do(  te:  dif f ( var,q[ ii ] ) , 
if  te  #  0  then  (for  j j : 0  thru  3  do 
( tee: dif f ( te,dif f (q[ j j ] , zta) ) , 

if  tec  #  0  then  (  gensub(tee), 
outputgenpu( var,nvar, ii, j j ) , 

apply ( 'gradef , [concat ( 'var, 'd, ii) ,dif f (q[ j j ] , zte 
) , concat ( 'var, 'du, ii, jj )]))))))) $ 


*  ‘ 


proc2uu(var ) : : = 

buildq( [var] , 

(for  ii:0  thru  3  do(  te:  dif f ( var, dif f (q[ ii ] , zta) ) , 
if  te  #  0  then  (for  j  j : 0  thru  3  do 
(tee: dif f ( te,dif f (q[ j j ] , zta) ) , 

if  tee  #  0  then  (  gensub(tee), 
outputgenuu(var,nvar, ii, j j ) , 

apply ( 'gradef, [concat ( 'var, 'u, ii) ,dif f (q[ j j ] , zta 
) , concat ( 'var, 'uu,ii, j j ) ])))))))$ 


procmu2uu( var ) : .= 

buildq( [var] , 

(for  ii:0  thru  2  do (for  j  j : 0  thru  2  do  ( 

apply ( 'gradef, [concat ( 'var, 'u, ii) ,diff (q[ j j ] , zta 
), concat ( 'var, 'uu, ii, jj )]))))) $ 


proc2vu(var) : := 

buildq( [ var] , 

(for  ii:0  thru  3  do(  te:  dif f ( var, dif f (q[ ii ] , eta) ) , 
if  te  #  0  then  (for  j  j : 0  thru  3  do 
(tee:diff (te,diff (q[ j j ] ,zta) ) ,  j 

if  tee  #  0  then  (  gensub(tee),  ! 

output genvu ( var , nvar , ii , j j ) , 

apply ( 'gradef, [concat( 'var, 'v,ii) ,diff (ar  j j ] ,zta 
), concat ( 'var, ' vu, ii, jj )]))))))) $ 


procmu2vu(var ) : := 

buildq( [var ] , 

(for  ii:0  thru  2  do( 

for  j  j : 0  thru  2  do  ( 

apply( 'gradef, [concat( 'var, rv,ii) ,diff (q[ j j ] , zta 
) ,concat ( 'var, 'vu,ii, jj )]))))) $ 

procmu2pu ( var ) : : = 

buildq( [ var] , 

( ii : 0 , ( 

for  j  j : 0  thru  2  do  ( 

apply( 'gradef, [concat( 'var, 'd,ii) ,diff (q[ j j ] ,zta 
) ,concat( 'var, 'du,ii, j j )])))) )$ 

; 

proc2pv ( var ) : : = 

buildq( [ var ] ,  j 

(for  ii:0  thru  3  do(  te:  dif f ( var ,q[ ii ] ) , 
if  te  #  0  then  (for  j  j : 0  thru  3  do 
(tee:dif f (te,dif f (q[ j j ] ,eta) ) , 

if  tee  #  0  then  (  gensub(tee), 
outputgenpv(var,nvar,ii, j j) , 

apply( 'gradef, [concat( 'var, 'd,ii) ,diff (q[ j j ] ,eta 
) ,concat ( 'var, 'dv, ii, jj )]))))))) $ 

proc2uv(var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do(  te:  dif f (var, dif f (q[ ii ] , zta) ) , 
if  te  #  0  then  (for  j  j : 0  thru  3  do 
( tee: dif f (te,diff (q[ j j ] ,eta) ) , 

if  tee  #  0  then  (  gensub(tee), 
outputgenuv(var,nvar,ii, j j) , 

apply ( 'gradef, [concat( 'var, 'u,ii) ,diff (q[ j j ] ,eta 
) ,concat( 'var, 'uv,ii, jj )]))))))) $ 


procmu2uv(var) : := 


buildq( [ var ] , 

(for  ii:0  thru  2  do( 

for  jj:0  thru  2  do  ( 

aPPly ( 'gradef, [concat( 'var, 'u,ii) ,dif f (q[ j j ] ,eta 
),concat('var,'uv,ii,jj)])))))$ 


proc2w(  var ) : :  = 

buildq( [var] , 

(for  ii:0  thru  3  do(  te:  diff (var,diff (q[ii] ,eta) ) , 
if  te  #  0  then  (for  j  j : 0  thru  3  do 
(tee: diff (te,diff (q[ j j],eta) ) , 

if  tee  #  0  then  (  gensub(tee), 
outputgenvv ( var , nvar , ii , j  j ) , 

apply ( 'gradef , [concat( 'var, 'v,ii) ,dif f (q[ j j ] ,eta 
) ,concat ( 'var, 'vv,ii, jj )]))))))) $ 

procmu2vv(var ) :  :== 

buildq( [ var ] , 

(for  ii:0  thru  2  do(  for  jj:0  thru  2  do  ( 

apply ( 'gradef, [concat( 'var, 'v,ii) ,dif f (q[ j j ] , eta 
) ,concat( 'var, ' vv, ii, jj )]))))) $ 


procmu2pv(var ) : := 

buildq( [ var ] , 

(ii:0  ,( 

for  j  j : 0  thru  2  do  ( 

apply ( 'gradef , [concat( 'var, 'd,ii) ,diff (q[ j j ] ,eta 
) ,concat ( 'var, 'dv, ii, jj )])))))  $ 
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proc2up(var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do(  te:  dif f ( var,dif f (q[ ii ] , zta) ) , 
if  te  #  0  then  (for  j j : 0  thru  3  do 
( tee :dif f ( te,q[ j j ] ) , 

if  tee  #  0  then  (  gensub(tee), 
outputgenup ( var , nvar , ii , j  j ) , 

apply ( 'gradef , [concat( 'var, *u,ii) ,q( j j ] ,concat( ' 
var , 'ud,ii, jj )]))))))) $ 

procmu2up(var ) : := 

buildq( [var] , 

(for  ii:0  thru  2  do( 

jj:0  /( 

apply ( 'gradef, [concat ( 'var, 'u, ii) ,q[ j j ] ,concat ( ' 
var, 'ud,ii, j j) ])))))$ 

proc2vp(var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do(  te:  diff (var,diff (q[ii] ,eta) ) , 
if  te  #  0  then  (for  j  j : 0  thru  3  do 
(tee:diff (te,q[ jj]), 

if  tee  #  0  then  (  gensub(tee), 
outputgenvp ( var , nvar , ii , j  j ) , 

apply ( 'gradef , [concat ( 'var, 'v,ii) ,q[ j j ] ,concat( ' 
var, 'vd,ii, jj )])))))) )$ 

procmu2vp(var ) : := 

buildq( [ var] , 

(for  ii:0  thru  2  do( 
j j :  0  ,( 

apply( 'gradef, [concat( 'var, 'v,ii) ,q[ j j ] ,concat( ' 
var, 'vd,ii, jj )])))) )$ 


arrgpp(var) : := 

buildq( [ var ] , 

(for  ii:0  thru  3  do( 

for  j j : 0  thru  3  do  (te:diff (var[ii ] ,q[ j j ] ) , 
for  kk:0  thru  3  do  (tee:diff (te,q[kk] ) ,gensub(tee) , 
fortran (concat ( 'var, 'pp, “ ( " ,  ii, " , " , j j , " , " ,kk, " ) " 
) =nvar ))))))$ 


arrgpu(var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do( 

for  j  j : 0  thru  3  do  ( terdiff ( var[ ii ] ,q[ j j ] ) , 
for  kk:0  thru  3  do 

(teeidiff (te,diff (q[kk] ,zta) ) ,gensub(tee) , 

fortran ( concat ( 'var, 'pu, " ( " ,ii, " , " , j j , " , M ,kk, " ) " 
) =nvar ))))))$ 

arrguu( var ) : : = 

buildq( [var] , 

(for  ii:0  thru  3  do( 

for  j  j : 0  thru  3  do  ( tesdiff ( var[ ii] ,dif f (q[ j j ] , zta) ) , 
for  kk:0  thru  3  do 

(tee:diff (te,diff (q[kk] ,zta) ) ,gensub(tee) , 
fortran ( concat ( 'var, 'uu, " ( " ,ii, " , " , j j , " 

)=nvar) )))))$ 


, " ,kk, " ) 


arrgvu( var) : := 

buildq( [ var ] , 

(for  ii:0  thru  3  do( 

for  j j : 0  thru  3  do  (teidiff (var[ii] ,diff(q[jj ] ,eta) ) , 
for  kk:0  thru  3  do 

(teeidiff (te,diff (q[kk] ,  zta) ) , gensub(tee) , 

fortran ( concat ( ' var , ' vu , “ ( " , ii , " , " ,  j  j , “ , “ , kk , " ) " 
)=nvar) )))))$ 

arrgpv(var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do( 

for  j  j : 0  thru  3  do  (teidiff ( var[ ii ] ,q[ j j ] ) , 
for  kk:0  thru  3  do 

(tee:diff (te,diff (q[kk] ,eta) ) ,gensub(tee) , 

fortran ( concat ( 'var, 'pv, " ( " , ii, " , " , j j , " , " ,kk, " ) " 
) =nvar ))))))$ 

arrgvv(var) : : = 

buildq( [var] , 

(for  ii:0  thru  3  do( 

for  j  j : 0  thru  3  do  (teidiff (var[ii],diff(q[ jj], eta)), 
for  kk:0  thru  3  do 

(teeidiff (te,diff (q[kk] ,eta) ) ,gensub(tee) , 

fortran ( concat ( 'var, ' vv, “ ( ” ,ii, " , " , j j , " , " ,kk, " ) " 
)=nvar) )))))$ 


arrguv(var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do( 

for  j j : 0  thru  3  do  (te:diff (var[ii] ,dif f (q[ j j ] ,zta) ) , 
for  kk:0  thru  3  do 

(tee:diff (te,dif f (q[kk] ,eta) ) ,gensub(tee) , 

fortran (concat( 'var, 'uv, " ( “ , ii, " , " , j j , " , " ,kk, " ) " 
)=nvar) )))))$ 


arrgup( var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do( 

for  j j : 0  thru  3  do  (terdiff ( var [ ii] ,dif f (q[ j j ] , zta) ) , 
for  kk:0  thru  3  do  (teerdiff (te,q[kk] ) ,gensub(tee) , 
fortran (concat( 'var, 'up, - ( " ,ii, " , M , j j , " , " ,kk, " ) - 
) =nvar ))))))$ 


arrgvp(var) : := 

buildq( [var] , 

(for  ii:0  thru  3  do( 

for  j j : 0  thru  3  do  (terdiff (var[ii] ,diff (q[ j j ] ,eta) ) , 
for  kk:0  thru  3  do  (teerdiff (te,q(kk] ) ,gensub(tee) , 
fortran (concat( 'var, 'vp, " ( " , ii, " , " , j j , " , " ,kk, " ) " 
)=nvar) )))))$ 


procall (varr) : i= 

buildq ( [ varr ] , ( unraod ( varr ) , proc ( varr ) , procu ( varr ) , procv ( var i 
roc2(varr) ,proc2(varr) ,proc2pu(varr) ,proc2pv(varr) , 
proc 2 up (varr) , proc2vp( varr ) ,proc2uu( varr) ,proc2uv( varr) ,proc2vu 
( varr ) , proc2 w ( varr ) , remvalue ( varr ) ) ) $ 


procmuall(varr) : := 

buildq( [ varr ] , (procmu( varr) ,procmuu(varr) /procmuv( varr ) ,procmu2 
( varr ) , procmu2pu ( varr ) , procmu2pv (varr), 
procmu2up ( varr ) ,procmu2vp( varr) ,procmu2uu( varr ) ,procmu2uv( varr ) 

, procmu2 vu ( varr ) , procmu2 w ( varr ) ) ) $ 


arrgall(varr) : := 

buildq ( [ varr ] , ( ar rg ( varr ) , arrgu ( varr ) , arrgv ( varr ) , ar rgpp (varr) 
arrgpu ( varr ) , arrgpv ( varr ) , arrgup ( varr ) , 
arrguu(varr) ,arrguv(varr) ,arrgvp(varr) /arrgvu(varr) ,arrgvv(varr 
)))$ 


APPENDIX  C 


.u  .»>  «<*  «  i 


Wi 

k 

w5 


•M 

ij 

•5 

•i 

>5 

•♦J 

31 


$ 

I 

tSJi 

w 

tV< 


MACSYMA  Representation  of  Navier-Stokes  Equations 


In  the  following  pages  the  MACSYMA  representation  for  the  Navier- 
Stokes  equations  is  given.  These  are  required  for  the  inputs  for  the 
macros  given  in  Appendix  B. 


(ol3)  c«pu:  rtx*  (m/r)+rty*  (n/r) ; 
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